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Pioneer PX-7 

FUERA DE SERIE 







SONY 



PROGRAMAS SONY MSX 



Educativos 



Monkey Academy 
Alfamat 
Viaje Espacial 
Mu tipuzzle 
Noria de Números 
Corro de Formas 
Coconuts 
Yo Calculo 
Selva de Letras 
El Cubo 
Informático 
Electro-graf 
El Rancho 
Teclas Divertidas 
Boing Boning 
Compulandia 
Mil Caras 
Logo 

Países Mundo-1 
Países Mundo-2 
Tutor 

Computador 
Adivino 

Aprend. Inglés- 1 
Aprend. lnglés-2 
Cosmos 
Curso de Básic 
Juego de 
Números 



Juegos 



Antártic Adventure 
Athletic Land 
Sparkie 
Juno First 
CarJamboree 
Battle Cross 
Crazy Train 
Mouser 

Computer Billiards 

Alí Babá 

Track & Field-I 

Track&Field-ll 

Dorodon 

Chess (Ajedrez) 

Senjo 

E.l. 

Lode Runner 



Super Tennis 



Backgammon 
Super Golf 
Hustler 
Binary Land 
Driller Tanks 
Stop the Express 
Ninja 
Les Flics 
La Pulga 
The Snowman 
Cubit 
Pack 16K 
Fútbol 
Kung Fu 

Batalla Tanques 
Mr. Wong 
Xixolog 
Buggy 

Sweet Acorn 
Peetan 

Jump Coaster 
Buggy 84 
3D Water Driver 
Pinky Chase 
Wedding Bells 
Fightting Rider 

Aplicación 

Memoria Ram 4 K 

Creative 

Greetings 

CharacterCollect 

Quinielas y 

Reducciones 

Pascal 

Ensamblador 
Generador Juegos 

Gestión 

Hoja de Cálculo 

Homewriter 

Control Stocks 

Contabilidad 

Personal 

Ficheros 

Procesador 

de Textos 

Control Stocks 

Vencimientos 

Contabilidad 
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INPUT /OTJTPUT 
EL MSX FUERA DE SERIE 

Analizamos el magnífico PX-7 PIONEER 

GESTION DE SUBRUTDíAS 

Las subrutinas son la £ran herramienta del programador 

CINCO UNIDADES DE DISCO 

Cinco disk drivers que permiten un acceso rápido a una gran 
cantidad de datos. 

PROGRAMAS 

Morse y Libro de Guardia 
Loro 

Roby Defenser 
Programa desensamblador 

CALL, LA LLAMADA DEL MSX 

Te exponemos vino de los puntos básicos para desarrollar tus 
programas de juego. 

EN PANTALLA 

Las novedades más interesantes en el mundillo del MSX 

LOGO, UN LENGUAJE POTENTE 

Analizamos el Logo Sony desarrollado por Idealoglc 

BIT -BIT 

Comentamos las novedades del software MSX. 

DEL HARD AL SOFT 

Entramos en el capítulo 14 de la serie dedicada al código máquina. 



TRUCOS DEL PROGRAMADOR 

El camino más corto para sacarle más provecho a la máquina. 

INDICE 1985 

Para los que coleccionan nuestra revista les damos el índice de todos 
nuestros programas editados en 1985. 
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COPIA DE LISTADOS 

Me gustaría que me dieran 
mas información sobre cómo 
Jugar a «El secreto de la Pirá- 
mide», pues no consigo llegar a 
ninguna parte. Pasando a otro 
tema pregunto si hay algún 
modo de copiar los programas 
sin tener que estar horas y ho- 
ras ante el ordenador. 

Adolfo Aladro García 



«J5J secreto de la Pirámide» 
es un Juego de rol parUclpaU- 
vo, ea decir que puede Interve- 
nir toda, la familia para avan- 
zar por el laberinto y resolver 
enigmas. Te conviene que pre- 
pares un mapa con las Inci- 
dencias para que no cometas 
errores a medida que los des- 
cubres. 

Copiar los listados es un 
modo de aprender, pero si no 
quieres hacerlo prueba a In- 
tercambiar cintas con otros 
lectores que ya lo hayan he- 
cho. De todóa modoa algo ten- 
drás que ofrecer a cambio. 




DIGFEALIZADOR DE VIDEO 



¿Existe algún modelo de 
MSX actualmente en el merca- 
do con digitallzador de vídeo 
Incorporado? 

Casimiro Navacqués 




Efectivamente, se ¿rata del 
modelo PX-7 de PIONEER del 
cual efectuamos un banco de 
pruebas en este mismo núme- 
ro. 



SONIDO DEL TOSHIBA 

He leído que algunos lecto- 
res que tienen un Toshiba HX 
10 tienen problemas con el so- 
nido, cosa que me ocurrió tam- 
bién a mi Para corregirlo de- 
ben sintonizar un potenció- 
metro Interno del aparato al 
que se accede desmontándolo. 
81 alguien esta Interesado en 
hacerlo por su cuenta, yo pue- 
do facilitarle una foto de su lo- 
calización para que con un pe- 
queño destornillador lo ajuste. 



Esto sucede con aparatos de 
Importación paralela, pero no 
con los de la casa oficial. 

Bruno Bautista Bueno 

Cáceres 

Desde luego, el problema que 
mencionas es frecuente en los 
aparatos de importación para- 
lela, debido a que las frecuen- 
cias con las que trabajan no 
aon homólogas a las españo- 
las. Por eso recomendamos 
siempre que los aparatos se 
compren en los distribuidores 
oficiales. 



CINTAS A DISKETTE 

Me gustaría que me infor- 
maran cómo pasar el progra- 
ma Quinielas que habéis edita- 
do en cassette a diskette. Tam- 
bién quiero decirles que sería 
muy Interesante que publica- 
ran las Instrucciones necesa- 
rias para poder traspasar 
cualquier programa de cinta a 
microdrive, como hacen otras 
publicaciones para ordenado- 
res, como Commodore. 

Antonio Sgo. Noguer 
Uoret de Mar ( airona) 

El programa Quinielas no 
puede ser pasado directamen- 
te a diskette pues cuenta con 
una protección especial. Con 
respecto a tu sugerencia de pu- 
blicar instrucciones para co- 
piar cualquier cinta a diskette, 
lamentablemente no podemos 
hacerlo puea no está dentro de 
nueatra línea editorial, ya que, 
aunque hay gente que copiaría 
programas de buena fe en otro 
soporte, hay otra que lo haría 
con fine 8 poco honestos. Por 
otro lado, la grabación de cual- 
quier listado no protegido pue- 
de hacerae con las Instruccio- 
nes dadas en los manuales ad 
hoc 

JUIGOS QUE 10 EHTBAI 

Les agradezco lo mucho que 
hacéis por los principiantes. 
Tengo un cassette SVT 767 y 
hace poco compré el Knlght 
Lore de Ultímate, pero resulta 
que al cargar el Juego, el orde- 
nador lo encuentra pero al 
cabo de un rato la pantalla se 
vuelve negra y ya no aparece 
mas nada. ¿Cual es el proble- 
ma? 

Reoasens López 




Según hemos 
los Juegos de la casa Ultímate y 
de alguna otra casa británica, 
tiene problemas de compatibi- 
lidad a raíz de no cumplir con 
las normas impuestas por Mi- 
crosoft. De todos modos, nos 
hemos puesto en contacto con 
Erbe, SJL Santa Engracia, 17, 
6°, 28010, Madrid, empresa 



PIRATERIA 



Quiero denunciar lo que al 
gunos personajes están ha 
clendo con Infinidad de juego 
y que considero que es una es 
tafa. Después de poner un 
anuncio en vuestra revista 
hermana MSX CLUB comencé 
a recibir listas de Juegos de 
muchas casas, incluidos vues- 
tros cassetes. Mi sorpresa es 
que no eran Juegos originales 
sino copiados directamente 
desde las cintas o los cartu- 
chos. A mi esto me parece muy 
deshonesto pues no solo perju- 
Uca a las casas sino también a 
os usuarios, pues la calidad de 
a copla es lamentable. 

Juan Qaray 
Madrid 

La Jucha contra la piratería 
s tarea conjunta tanto de 
usuarios como de fabricantes 
r periodistas. Nuestra reco- 
üendaclón a los usuarloa es 
que no sólo denuncien, como 
tú y otros lectores lo vienen 
haciendo, sino que no se dejen 
engañar adquiriendo coplas 
fraudulentas. 



que comercializa estos pro- 
ductos en España, ynoa ha co- 
municado que tal problema ya 
está solucionado, por lo que 
aquellos que posean un cartu- 
cho defectuoao pueden can- 
jearlo por otro en la misma 
tienda donde lo compraron o 
bien en la misma empresa. 



PARADAS DEL CASSETTE 

Les escribo para que me in- 
formen a qué son debidas las 
continuas paradas del cassette 
al cargar o grabar programas. 




Oareia 
de Oran 



Esto sucede cuando se grava 
en formato ASCII, debido a que 
funciona en bloques de 255 ca- 
racteres, al ñnal de cada uno 
de loa cuales se cierra el con- 
mutador y detiene el cassette. 




80 COLUMNAS 

Recientemente, he adquiri- 
do un ordenador 8VT738 
XTRESS con la ilusión (entre 
otras) de poder trabajar en 80 
columnas, pero mi sorpresa 
ha sido que al utilizarlo, me he 
dado cuenta de que sólo puedo 



hacer esto cuando trabajo en 
los sistemas operativos CP/M o 
MSXDOS. ¿Sería posible utili- 
zar el WIDTH80 DEL MSXDOS 
para el BASIC? 
J. M. Campmbi Domeñe ch 




Cuando se e w _ 

de cualquiera de eaoa dos siste- 
mas operativos suministrados 
en disco, se reorganiza la ROM 
del ordenador; ea decir, se si- 
túa cada sistema operativo en 
un área diferente de la memo- 
ria. Por lo tanto, no es posible 
acceder a loa comandos de 
MSXDOS o de CP/M desde el 
BASIC, así como no es posible 
realizar el procedimiento in- 
verso. 




AMPLIACION BEE CAED 

Me gustaría que Indicasen si 
en Bee Card hay ampliación de 
memoria y si la hay cuanto 
cuesta. 



Cartagena 

La tarjeta Bee Card sólo co- 
\erclaHza por el momento en 
apaña su versión de Juegos. 




CRITICAS RAZONABLES 

Soy asiduo lector de esta re- 
vista y del MSX CLUB y espero 
serlo de la nueva MSX-2, pero 
quiero manifestarles mis críti- 
cas sobre algunos puntos. 81 
bien el contenido y la forma 
son muy del agrado de los 
usuarios del MSX, muchas ve- 
ces la Impresión de las mis- 
mas -sobre todo de los progra- 
mas— es pésima. En segundo 
lugar esta el Test de Listado 
cuyo número no coincide aún 
en líneas muy cortas y com- 
probadas. Espero que pronto 
den una solución de acuerdo 




con la categoría de esa revista. 
Pedro Paredes Tobal 




Evidentemente tienes razón 
en cuanto a la impresión de al- 
gunos listados. Hemos tomado 
medidas para que esto no ocu- 
rra según puedes comprobar 
en los últimos números. Sin 
ánimo de descargar culpas, al- 
gunos de estos errores no son 
achacabas a la redacción. En 
cuanto al Test de Listados, no 
podemos darte la razón ya que 
el listado del programa, ya 
comprobado, y su correspon- 
diente Test se obtienén simul- 
táneamente para evitar cual- 
quier tipo de anomalía. 



EXPA2ÍSI0N 871 

En el n.°15 hablan de un car- 
tucho de expansión SVT 747 de 
Spectravídeo y dicen que es 
para ordenadores MSX, pero-a 
mi me parece que es demasia- 
do pequeña su entrada. Por fa- 
vor denme el teléfono de la 
casa que lo comercializa y dí- 
ganme cuantas Ks. tendré si lo 
compro te» riendo en ita 
quü iiii uroenadoi oituie at> 
RAM. 

(firma ilegible) 



Si tienes un ordenador con 
32K de RAM y le aplicas ub 
cartucho de ampliación dt> 
64K, tendrás 29K libres y 35 
para sistema operativo de dis- 
co. 

El teléfono de 8VI España es 
(91 ) 676 76 99. 




VOLCADO DE PANTALLA 



He tecleado el programa de 
volcado de pantalla, pero sólo 
me salen textos aunque no 
gráficos. Yo tengo un Hit Bit 
HB 76P y una impresora plot 
ter PBJtf C-jL de Sony. Mi pre 

kui.i*l ^sdí je puedi haceí ¡toJ 

de impresoras. Me he puesto 
en contacto con la casa Sony, 



pero aún no he recibido res- 
puesta. Espero que ustedes me 
contesten. 

Jo sé A. de la Fuente 

Burgos 

Se pueden hacer volcados de 
pantalla con cualquier tipo de 
impresora. El programa que 
nosotros pubhuamos sólo es 
idóneo para hnpi*esoras de 
tipo matricial MSX. Para im- 
presoras de otra norma es ne- 
cesario adaptar los códigos de 
caracteres. Nuestros progra- 
madores están trabajando ac- 
tualmente en un copy para 
plotter. 



en ejecutar la acción, ¿Es fallo 
del ordenador, del joystick o 
del juego? 

José Martines Bueno 

Para enmarcar la pantalla 
eiupiea Screen 1, COLOR 16, 2, 
4 pul ajeniólo. Lo importante 
j± ju.c ^tíuiix ¿üIujl aea. sltíei oiiue. 
Áxx juülliou <x uu jvy&tduJtL, prue 
utuo oou jw'w juo&us, y si te 
funciona bien haz que te com- 
prueben la tarjeta en la tienda 
donde la compraste. 



m 




/ 



MARCO DE PANTALLA 

cómo enmarcar la pantalla. 
También . quiero comentarles 
que al conectar el joystick 
para Jugar con la tarjeta «24 

oías en Le Mdiu»: je Óoit 
Gard, me tarda doa abfcunaub 



He observado que en algu- 
nos Juegos comerciales, que 
cuando d« uiterrumpb el juego, 

eí leñador hace un kbsey 

¿PodrlAlS uarme una suoruU 
uti pa.< ti que uns pi ugi ajutta hl 

oleran un RJBS2T? 

lsuim ti valí» Villmnueva 

CBXJTRJASOT) 

Nada más sencillo. En pri- 

Uiei \ugai .se deben activar las 
I >wi capciones mecíante la 
u.ooiucüión STOP UN. Tras 
esto, ya podemos introducir la 
sentencia ON S1VP GOSUB (n ° 
de hnoaj. * para ooienei el 
RÚ8BT, en ¡a línea cuyo u na 
yamos indicado en la senten- 
cia ON STOP QOSUB, colocare- 
mos lo siguiente: 

EFTTSR O A ttsr(O) 
feZí c que ji uenañin eféi 

uuoj a uii 



COLORES EN SCREEN 



-¿Podríais decirme cómo 
conseguir mezclar colores en 
el modo SCREEN 1? 

-¿Cómo puedo realizar un 
SCROLL? 

-¿Qué debería hacer para 
que el ordenador considere un 
carácter determinado como 
un SPRITE? 

Manuel J. Muñoz Martínez 

(Andújar) 

-A la primera cuestión que 
planteas, te va a responder 
nuestro lector y amigo GER- 
MAN desde Valencia, que ha 
estado experimentando con 
este asunto: 

10 FOR N =0 TO 7: READ 
AiVPOKE 8192 + 1* 8 + N,A: 
NEXT: DATA 218, 215, 215, 
215, 215, 255, 255, 255, 
ESTE BUCLE CAMBIA TABLAS 
EN SCREEN 1 , POR LO CUAL 
HA DE EJECUTARSE EN DI- 
CHO MODO DE PANTALLA, 
CONSIGUIENDOSE UNA VI- 
SUALIZARON DE LOS CARAC- 
TERES DISTINTA A LA NOR- 
MAL 

SE PUEDE EXPERIMENTAR 



CAMBIANDO LOS VALORES 
QUE ESTAN FIJOS, YO LO HE 
INTENTADO SOLO CON EL 6 Y 
CON EL 3. 

SE PUEDEN AÑADIR LAS SI- 
GUIENTES LINEAS, CONSI- 
GUIENDO DISTINTOS RESUL- 
TADOS 5 FOR M=l TO 255: 
RESTORE 
15 NEXT 

HABIENDO DE CAMBIAR EN 
LA LINEA 10 EL NUMERO 1 
QUE APARECE POR UNA M. 

Hemos hablado en varias 
ocasiones de los SCROLLS de 
pantalla. Por tanto, te remiti- 
mos a esta misma sección en el 
n ° 15, o a los «trucos del pro- 
gramador» en varios núm. de 
esta revista o bien al articulo 
«SCREEN 2 en alta velocidad» 
publicado por Willy Miragall 
en el n.° 13 de nuestra revista 
hermana MSX CLUB. 

En cuan to ala tercera cues- 
tión que planteas, te remiti- 
mos a los TRUCOS DEL PRO- 
GRAMADOR del n.° nueve de 
esta revista, donde hay un lis- 
tadito para transformar el 
cursor en SPRITE. 



ÜBOOTyOnOS 

Quería saber si vuestro Jue- 
go U-Boot y El 8ecreto de la Pi 
rámide son para 16K o más. 



duadix C tiran* OaJ 

Todos nuestros juegos son 
para ordenadores de 32K o 
más. 




CATALOGO DE JUEGOS 

i tíiigo algunos problemas 
con vuestro Juego U-Booty les 
ruego que me indiquen cómo 
solucionarlos. Por otro lado 
con respecto a la pregunta que 
hacía un lector sobre si existía 
un catálogo de Juegos y voso- 
tros contestabais que no, pues 
debo decirles que Sony cuenta 
con uno. 



Si tienes problemas con al- 
guna de nuestras cassettes, 
prhnero te recomendamos que 
veriñques las condiciones de 
carga. Si aún así persisten, en- 
víanos o trae tu cassette a 
nuestro Dpto. de Programa- 
ción y con mucho gusto te lo 
comprobaremos. Recuerda 
que nuestros productos están 
garantizados. 

En relación al catálogo de 
megos, tu le reñeres a la neta 
ce ¡uegos de Sony pero, el mis- 
mo sólo nitegra aquellos que 
esta ñrma comercializa. De to- 
dos modos, a raíz de una reu- 
nión de fabricantes de MSX de 
la que hemos dado cuenta, se 
está confeccionando un com- 
pleto catálogo con todo el soft- 
ware existente en el mercado 
español. Sobre el particular 
nuestra editorial, también 
orepa/.'fi lo, uwtomx especia i 

u ti ¿uA>#are Í6 m t* oceu 
uuentüj de uunuau uenuesu-o 
mercado. 



PRIMERAS 
JORNADAS HSX 



Organizadas por 
Manhattan Transí er 



Nuestra editorial ya 
esta trabajando con- 
juntamente con las 
principales marcas de apara- 
tos MSX y fabricantes de soft- 
ware para llevar a cabo las 
PRIMERAS JORNADAS MSX. 
Dichas jornadas tendrán lu- 
gar el próximo mes de sep- 
tiembre en el marco del SONI- 
MAG, la famosa feria de Barce- 
lona. 

El objetivo de las PRIMERAS 
JORNADAS MSX es la de po- 
ner de manifiesto, tanto desde 
el punto de vista racional 
como funcional la importan- 
cia de la norma. Para ello se 
contara con la presencia de 
destacados profesionales es- 
pañoles y extranjeros que 
abordarán distintos aspectos 
técnicos que fundamentan las 
ventajas del sistema. Asimis- 
mo se analizarán las cuestio- 
nes fundamentales para el de- 
sarrollo de un software espa- 
ñol especifico. 

Es intención de Manhattan 
Transfer, S.A. que las PRIME- 
RAS JORNADAS MSX resulten 
de gran interés tanto para las 
compañías del sector como 
para los miles de usuarios de 
un sistema cada vez más con- 
solidado en nuestro mercado. 



AVISO IMPORTANTE A 
NUESTROS LECTORES 



Lamentamos comunicar 
a todos los usuarios de 
nuestras cassettes que 
hemos detectado en el merca- 
do copias piratas de nuestros 
programas concretamente U- 
BOOT, QUINIELAS y SNAKE. 
Dichos programas se comer- 
cializan bajo mano y de forma 
totalmente ilegal. Por ello ad- 
vertimos que no podemos ha- 
cernos responsables del fun- 
cionamiento de ellos, ya que no 
poseen nuestra garantía. Tam- 
bién hemos constatado que es- 
tas CINTAS PIRATAS, tienen 
serios problemas de carga de- 
bido a su pésima duplicación, 
lo que advertimos a aquellos 
que no «puedan resistir la ten- 
tación». COMPRAR ESTAS 
CASSETTES PIRATAS ADE- 
MAS DE FOMENTAR EL CO- 
MERCIO ILEGAL, ES TIRAR 
EL DINERO A LA BASURA. 



Input 



LDTBA INEXISTEHTE 



Al hacer un programa y Ju- 
gar un buen rato con él, com- 
probando que no tiene ningún 
error, lo grabo y compruebo 
poniendo CLOAD? «nombre 
del programa». Pero sucede 
que cuando quiero jugarlo otra 
vez y lo cargo, ya no puedo ju- 
garlo porque me salen errores 
y líneas que el programa no te- 
nia. Lineas que al intentar bo- 
rrarlas me sale Undeflned llne 
number... 

Manuel Bravo Ortiz 
Qa la Ha (Barcelona) 

Lo que nos planteas es un tí- 
pico error de carga, por lo que 
te recomendamos que limpies 
bien los cabezales de tu graba- 
dora y que vigiles sus pilas, 
pues puede suceder que al sal- 
var el programa tenga una pa- 
tencia determinada y al car- 
garlo otra. 




>••! t I I • • ■ . . I . . . 
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UH ORDENADOR POR PAVOR 



Quiero pedirles un favor. He 
mandado muchas cartas a 
concurso pero nunca me na to- 
cado ningún ordenador. Mis 
padres no tienen muchos me- 
dios económicos para com- 
prarme uno, aunque sé bas- 
tante de informática y en espe- 
cial de MSX, gracias a vuestras 
revistas. Por esto les pido que 
me regalen un aparato para 
que pueda estudiar. 



Oral. Hincón D. 

Pta. 14 l.°D 

Caín (Málaga) 

Trasladamos tu solicitud a 
nuestros lectores y a los fabri- 
cantes. 



MEJ01ÜDDÜJ0 PUHTO A PUHTO 

Refiriéndome al programa 
«Dibujar punto a punto» publi- 
cado en la sección Trucos del 
programador de enero, les co- 
munico que hay un error en la 
línea 190, la cual debe ser 190 
GOTO 80. De todos modos para 
que funcione de acuerdo con la 
explicación y algo mejor debe- 
mos quitar la linea 150, corre- 
gir la línea 140 IF A$= un 
THEN 50 y añadir una línea 56 
IF8TBJG (0)=-l THEN 200. 

Por otro lado os envío dos 
programas cuya ejecución lle- 
va el mismo resultado. 
Antonio Rodrigues Tran- 



Barcelona 

Gracias por tu colaboración. 
Los dos programas están sien- 
do analizados para su inclu- 
sión en Trucos del programa- 
dor del mes que viene. 
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MEJORAS A COUSTBAU 

Me he permitido hacer unas 
pequeñas modificaciones a 
Cousteau aparecido en el n.° 

10: 

Línea 1420 A= A -I- .2 
Línea 1680 CC=CC+1: UNE 

(9, 30)-(ll, 180), 12, BF: 

A=0. 

Con estas modificaciones 
conseguiremos que al llevar el 
cofre a la superficie el aire que 
hemos gastado se nos repon- 
ga. Pero este aire también se 
irá mas de prisa, es decir que 
tendrás que darte más veloci- 
dad en coger el cofre y volver. 

Virgilio Lado Fernández 
Club Amigos del SVT 328 



Gracias. 





Tengo problemas con las di- 
recciones de los P0KE8. Entre 
las direcciones de memoria 
16256 y 16383 me resulta im- 
posible introducir datos. ¿Qué 
hay en esas direcciones? Por 
curiosidad pokeo en las direc- 
cione 32771 y 32772 con el 
dato 0 y luego pokeo también 
en la dirección 32770 con el 
dato 23 (vale también la direc- 
ción 32769 pudiéndose cam- 
biar el dato). Tras esto tecleo 
LIST y en la pantalla me apare- 
ce un listado rarísimo. ¿Qué he 
hecho? 



C 



Z MONTES 




Vamos por partes. En las di- 
recciones 1 6266 y 1 6383 te re- 
sulta imposible introducir da- 
tos mediante la instrucción 
POKE porque pertenece a la 
ROM del sistema, y no es modi- 
fícable por el usuario median- 
te la utilización de POKE. 81 se 
desea acceder a la ROM, deben 
utilizarse las funciones DE- 
FüSRy U8R tal como se viene 
explicando en la serie «del 
Hard al Soft» que publicamos 
mensualmente en estas pági- 



Output 



Con referencia a tus experi- 
mentos en las direcciones que 
mencionas, en primer lugar te 
diré que es absolutamente in- 
diferente que introduzcas el 
dato 0 en la dirección 32772, 
puesto que si trabajas en modo 
directo y no tienes ningún pro- 
grama cargado, el contenido 
de esa dirección es 0. Natural- 
mente, esto sucede porque 
esas direcciones pertenecen al 
área de la RAM donde se alma- 
cenan los programas en BA- 
SIC con sus números de línea. 
De ahí que cuando comiences a 
experimentar en las direccio- 
nes que mencionas te salgan 
listados inverosímiles. Debes 
saber que poke, aún siendo 
una instrucción BASIC está ín- 
timamente relacionada con el 
lenguaje maquina. Por lo tan- 
to, al colocar contenidos al 
azar en las direcciones donde 
se almacena el programa BA- 
SIC, lo que consigues es que el 
ordenador interprete esos da- 
tos como un programa. 

Te recomiendo encarecida- 
mente que no te dediques a P0- 
KE8 a diestro y siniestro sin 
saber exactamente lo que pre- 
tendes. 81 sigues obrando de 
una manera tan desorganiza- 
da vas a desperdiciar cantida- 
des Ingentes de tiempo colgan- 
do el sistema u obligándolo a 
relnlclallzarse. 

Para que aproveches mejor 
tu tiempo, y sepas lo que pre- 
tendes cada vez que haces un 
POKE, te recomiendo que leas 
detenidamente todos los artí- 
culos de la serie «del Hard a 
Soft» que te van a resultar te- 
rriblemente útiles y que ad- 
quieras el «ESPECIAL LEN- 
GUAJE MAQUINA» de esta 
misma revista y que ya está en 
los quioscos. Con respecto a 
ias direcciones de memoria úl- 
timas que citas, si hubieras 
procedido de una manera or- 
ganizada, sabiendo cómo está 
distribuida la memoria ( viene 
en todos los manuales) tal vez 
hubieras realizado el proceso 
Inverso, que en este caso es el 
acertado. Si en primer lugar 
hubieras leído mediante PEEK 
las direcciones comprendidas 
entre la 32768 y la 33000, por 
ejemplo y hubieras anotado 
los valores, si después hubie- 
ras introducido un corto pro- 
grama BASIC, y hubieras vuel- 
to a leer los contenidos de esas 
direcciones, hubieras observa- 
do que se han modificado los 
contenidos Iniciales precisa- 
mente para almacenar el pro- 
grama BASIC en código máqui- 
na. Espero que esta pequeña 
pista te sea de utilidad, pero no 
malgastes tus energías traba- 
Jando desordenadamente. 
Compra nuestro especial len- 
guaje máquina; te ahorrará 
muchas horas. 





SUSCRIBETE HOY MISMO SI 



QUIERES ESTAREN VANGUARDIA 



La primera revista de MSX de España en tu domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Ademas tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 

MANHATTAN TRANSFER, S JL 



Nombre y apellidos 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 

a partir del número 



Muy Importante: para evitar retraaos en la 
recepción de los números rogamos deta- 
lléis exactamente el nuevo número de los 



Calle 



Ciudad Tel. 







Provincia 



FORMA DE PAGO: Mediante talón ban 
cario a nombre de: 

MAEJTTATTA1 

O/. Roca i BatUe, 10-12 



••• •• 



América por avión 



1.780,- 

a.ooo,- 
a.BOO - 
as usas 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 



é. 




GOLDSTAR FC200 



MSX 2.- Edición 

N." 1,2,3.4- 450 PT AS. 



MSX 2. a Edición 
N.°* 5,6,7,8 - 475 PTAS 



■ ■*V GOLDSTAR FC200 
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MSX9 150 PTAS. 
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SPECTRAVIDECfX'RRESS 



MSX 10 300 PTAS. 
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MSX11 1 50 PTAS. 



MSX12.13 300 PTAS 





MSX14 180 PTAS. 



MSX 15 175 PTAS. 



MSX16 175 PTAS. 





MSX17175 PTAS 



MSX18 175 PTAS. 



¡LA I a REVISTA DE MSX DE ESPAÑA* 
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PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 

-DPTO. SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 

BOLETIN DE PEDID 



Deseo recibir los números 




de SUPERJUEGOS EXTRA MSX 



Dará lo cual adlunto talón del Banco 
o I Nombre y apellidos 
Dirección 



n.' 



a la orden de Manhattan Transfer, 8 JL 



........ 



Tel.: 



PIONEER PX-7 




% * 

A simple vista, este aparato no parece un M8JL Estamos acostumbrados a ver el ordenador en ana consola 
donde va integrada la memoria y las entradas para periféricos, mientras «jue en este aparato el teclado 
está separado de la unidad central y las entradas/ salidas de periféricos. 



Realmente, este equipo diseñado por 
PIONEER dentro de la norma MSX re 
sulta atractivo para aquellos usuarios 
que pretendan realizar tratamiento de 
imagen o de soruao sobre todo Lo 
atractivo del diseño oel equipo que peí 
mite trabajar con la unidad central situa- 
da en el mueble del equipo auoio, o en 
otra estantería mientras el redado esta 
situado soDre la mesa de uabaj< iaoei i 
que este equipo ademas ae ui ia i tece&i- 
dad sea un capricno En la pane rroniai 
de la consola, encontramos ei intenup 
tor e indicador de alimentación, ei filísi- 
mo botón RESET, el interruptor VIDEO/ 
AUDIO de alimentación, que sirve para 
seleccionar las señales de salida de los 
terminales Vlübu/Auüiu oei .e» tía 
sero, el conector del teclado, los ports 
de los joysticks. 

La enuaoa paraauricuiaies, ei control 
de volumen (para altavoces externos o 
auriculares), el control dei nivel oe mez- 
cla (para mezclar los sonidos gei tei ados 
poi ei PSia coi . otras rúenles ae auuio 




vídeo 



COMPUTER 



SELECT 




Teclado ae funcione* ¿aixtcmies. 



externas) y la primera ranura de < arru- 
cho. 

En la parte postehoi de la oonsoia. en- 
' '¡ ai amos los terminales Audio mput R 
(caí \d\ derecno), L (canal izquierdo) <\u 
dio uutput (R, L), Video input y Video 
Üutput íarnbién en esta parte trasera 
tenemos ios conector es RF RliB ; oone 
kiom paia cassette y para impresora y la 
seyuriria >anura de cartucho Además 
de esto ilevauntoiMiintopaiaajustai ios 
canales de televisión entre el caí lal 3b y 
el 37 

Ll teclado, además de su ati activo di- 
seño incorpora en su lado izquierdo tres 

ledas exclusivas de este jfüenaüor Se 

trata de ias tecias SUPERIMPOSE, vl- 

Ulru y CUMPU I Éft 

La tecla SUPERIMPOSF permite que 
ias imágenes y sonidos ¿enerados poi 
ei Pa / se sobreimpresioi ten err ias ima 
yenes y sonidos de ia unidad de víaeo 
conectada a los terminales de entrada 
del panel trasero del ordenador. 

La tecla VIDEO hace que sólo se vea 
ia ¡mayen procedente del equipo de vi 
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deo conectado al terminal de salida del 
PX-7. El sonido del vídeo conectado y el 
generado por el PSG del ordenador se 
combinan y salen por los terminales de 
salida audio a los altavoces externos. La 
tecla COMPUTER, por último regresa al 
ordenador a su modo de operación habi- 
tual: Es decir, tan sólo tienen salida las 
imágenes y sonidos generados por el 
ordenador. 

PRESTACIONES EXCLUSIVAS 
DEL EQUIPO 



IM I) 



DE SUPERIMPOSE 

Esta función sirve para sobreimponer 

gráficos de computador en las señales 

de videodisco, VCR o cualquier otra 

fuente de vídeo; también permite grabar 

los dibujos sobreimpuestos en una cinta 
de vídeo. 

FUNCION MEZCLADORA DE ESTEREO 

Esta otra interesante función exclusi- 
va permite mezclar los sonidos genera- 




Vista posterior del PX-7 Pioneer con todas sus conexione*. 



dos por el Generador Programable de 
Sonido (PSG) con las señales sonoras 
de un equipo audio. El nivel de mezcla 
del sonido combinado puede ser varia- 
do. Los terminales de entrada/salida 
son compatibles para la reproducción 
en estéreo. 

FUNCION DE CONTROL DE SISTEMA 

Esta función (exclusiva para los equi- 
pos a control remoto de PIONEER) per- 
mite controlar a distancia los equipos de 
laservisión y de audio. 

Lógicamente, para tener acceso a to- 
das estas funciones del equipo, se pre- 
cisa una extensión del BASIC MSX ha- 
bitual. El PX-7, la lleva incorporada, y se 
selecciona al iniciarse el sistema. La 
pantalla inicial permite seleccionar, pul- 
sando las teclas 1 ó 2, el BASIC MSX or- 
dinario o bien el P-BASIC -extensión de 
PIONEER al BASIC MSX-. En el caso 
de que se seleccione esta segunda op- 
ción, la memoria RAM disponible será 
de 28751 bytes, puesto que la expan- 
sión del BASIC tan sólo ocupa 64 bytes. 



W EB EDO MB BMIB DE VIDEO 

Tal vez la función que más llame la 
atención de los futuros usuarios sea la 
del SUPERIMPOSE. Para acceder a 
esta función, el comando que controla 
este proceso es 

CALL IMPOSE (MODE) 

Donde MODE puede adoptar los si- 
guientes valores: 

MODEO: Modo de ordenador. Sólo 

muestra las imágenes gene- 
radas por el ordenador: 
MODE 1 : Modo superimpose. La ima- 
gen del ordenador se so- 
breimpresiona sobre la ima- 
gen de vídeo en la pantalla. 
MODE 2: Modo de vídeo externo. Tan 

sólo se visualiza la imagen 
transmitida por el vídeo. 
Naturalmente, los modos 1 y 2 que- 
dan sin efecto si no hay conectada una 
fuente externa de vídeo. 






CPU 

FRECUENCIA CLOCK 
MEMORIA ROM 
MEMORIA RAM 

MODO TEXTO 
RESOLUCION GRAFICA 

COLORES 
SP RITES 
SALIDAS VIDEO 

CONTROL DE PANTALLA 



TECLADO 

■ 

SONIDO 



LENGUAJES 
DISTRIBUIDOR 



Z80A 
3'58 MHz 

40K (32MSX BASIC, 8K P-BASIC) 

48K (incluyendo 16K VRAM) 

40x24; 32x24 

256 x 192 puntos 

16 

256 

PAL vídeo compuesto 
RGB 

Computer 

Superimpose 

External vídeo 

Separado, 76 teclas QWERTY 

Cable DIN 13-pin 

Fuente (PSG) y entradas audo externas 
Salida: Altavoces Stóreo 

Auriculares Stóreo 

Línea Stéreo 
Control de mezcla ± 15 dB 
Control de Sistema (Láser Vision Player) 
Cassette Señal PSK • 
Impresora Centronics 
Controladores: 2 PORTS 
Cartucho: 2 ranuras 
Todos los disponibles paira la norma 
Pioneer Electronics España, S A. 
Bolivia 234 - 08020 Barcelona 




Para trabajar en la sobreimpresión de 
vídeo, un periférico indispensable es la 
tableta gráfica PIONEER, pero para po- 
der sacar el mayor partido posible es in- 
dispensable un software que permita 
crear, animar, editar, salvar la informa- 
ción: Se trata del cartucho MSX VIDEO 
ART, también de PIONEER. 

Si disponemos de ambas cosas, ya 
podemos comenzar a trabajar con ellas. 
Una vez conectado el cartucho en el sis- 
tema, y tras la pantalla de presentación, 
aparece un menú con las funciones an- 
teriormente descritas. 

Para escoger cualquiera de estas fun- 
ciones, debe presionarse con el lápiz 
sobre la tableta la opción deseada. 

Si seleccionamos la opción CREATE 
ART, ésta nos va a permitir trazar I íneas, 
trazar líneas a partir del último punto 
dado, trazar (con lápiz grueso o delga- 
do), dibujar círculos, cuadrados, cam- 
biar el color de fondo, situar caracteres 
en cualquier lugar del dibujo, llenar 
áreas de color, borrar una parte o la tota- 
lidad del dibujo y limpiar la pantalla. 

La opción ANIMATE DRAW sirve muy 
bien para la creación de dibujos anima- 
dos. Se pueden seleccionar hasta 8 
imágenes para crear la sensación de 
movimiento, lo que permite un sinfín de 
combinaciones. Naturalmente, todas 
las secuencias de animación pueden al- 
macenarse en soporte magnético (disco 
o cinta) y recuperarse cuando se requie- 
ran. 

Con CREATE MOVEMENT se puede 
dar movimiento a todos los dibujos que 
hayamos realizado con la opción ANI- 
MATE DRAW, simplemente desplazan- 
do el lápiz por la superficie de la tablilla 
gráfica. Una vez hecho esto, es posible 
comprobar si el movimiento es el correc- 
to seleccionando sobre la tablilla la ins- 
trucción TEST RUN, que va a reproducir 
el movimiento que hayamos realizado 
sobre la tableta en la pantalla con la figu- 
ra escogida. 

La función EDITING permite el editaje 
y la sobreimpresión en vídeo. Para tra- 
bajar en este modo, es preciso tener co- 
nectado un aparato de vídeo, puesto 
que en caso contrario se oscurecerá la 
pantalla dando paso al menú inicial. 

En modo EDITING se puede simulta- 
near el trabajo de CREATE ART y ANI- 
MATE DRAW. Una vez editadas las 
imágenes, debe seleccionarse en la ta- 
blilla SUPERIMPOSE ON, con lo que se 
sobreimpresionarán los dibujos que ha- 
yamos podido realizar sobre la imagen 
del vídeo, pudiendo lograr tratamientos 
de imagen sorprendentes. En el mo- 
mento en que seleccionemos SUPE- 
RIMPOSE OFF, la pantalla tan solo 
mostrará la imagen del ordenador. A la 
vista de lo dicho, podemos concluir que 
este equipo, el PIONEER PX-7 no es un 
MSX más; e§ un fuera de serie que Pio- 
neer Electronics España, S.A. importa y 
comercializa de un modo muy selectivo 
por el momento, debido a la estrategia 
impuesta por Pioneer de Japón. 



BIENVENIDOS A 




Cíe CASSETTES 



UN SOFTWARE DE ALTA CALIDAD PARA MSX 





QUINIELAS 

7 




íi 



KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 

dificultad ün Juego cuya popularidad es cada 
vez más grande entre loe usuarios del MSX. 
PVP. 500 Ptas. 



El secreto de la 



N GARANTIA ■ 



U-BOOT. Sensacional juego de simulación 
submarina en la que uenes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



CON GARANTIA ; 



QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




SNAKE. Entretenido y muy divertido Juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. 





EL 8BCRET0 
juego 



y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. [Atrévete si 
i! PVP. 700 Ptas. 



TRANSFERSA 



STAR RUNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hlperespacio, contraías defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pts. 





PLOPPY, El Preguntón, ün verdad» 
a tus conocimientos de Geografía e 
española. Floppy no perdona y t 
mucho superarlo. PVP. 1.000 Ptas. 



ulerea recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy misme 
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Nombre y apellidos 
Dirección: 
Población: 
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Tel.: 




□ KRYPTON 

□ U-BOOT 

□ QUINIELAS 



Ptas. 500,- 
Ptas. 700 - 
Ptas. 700,- 

Gastos de envío certificado por cada cassette 
Remito talón bancario de Ptas. 



SNAKE 

EL SECRETO DE LA PIRAMIDE 
STAR RUNNER 

Ptas 

a la orden de Manhattan Transfer, S A 



Ptas. 
Ptas. 
Ptas. 



j 



os suscriptores tienen un descuento del 10% sobre el precio de cada 

IMPORTANTE: . 



L 



[SX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



NUESTRAS CASSETTES 



NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 
A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 




i*s suorutinas constituyen una importante herramienta de trabajo para los programadores, ya que ellas 

permiten una serie de controles jerárquicos de las funciones del programa. 

Un científico cuando decide realizar 
una investigación lo primero que se 
plantea es el problema y objeto de su es- 
tudio, y en función de este formulará un 
diseño metodológico estructurado, que 
le permitirá saber, en primer lugar, la 
viabilidad de su investigación, y si lo es, 
todos los pasos necesarios para llevarla 
a término. Todo ello sin dejar nada al 



■ 



Un programador, al igual que el cientí- 
fico, debe plantearse el objeto de su pro- 
grama, cuál es el problema que plantea 
programar una determinada gestión, y 
luego realizar el diseño o la estructura 
del programa que le permitirá resolver el 
objeto que se había planteado. 

Todo el proceso viene dado por un 
«método de trabajo» definido por una 
serie de reglas y técnicas de programa- 
ción. 

DEFINIENDO LOS AMBITOS DEL 
PROGRAMA 

Si nos ponemos a programar directa- 
mente, tal y como nos vienen las ideas 
sin tener primero bien claro el objeto del 
programa, es decir, qué es lo que pre- 
tendemos que haga ese programa, lo 
que resultará será una amalgama de ru- 
tinas y sentencias entremezcladas, que 
la menor modificación creará tal serie de 
interdependencias y procesos no de- 
seables con objetivos y funciones dife- 
rentes, que se nos escaparán de todo 
análisis que hagamos. 

Para que ello no ocurra debemos to- 
mar el programa como un sistema que 
integra elementos que de por sí son in- 
dependientes y que nosotros establece- 
remos entre ellos las relaciones que nos 
interesen. De esta manera tendremos: 
el sistema que es el programa en su 
conjunto, y los elementos que integran 
el programa que serán: elementos de 
entrada, de proceso, y de salida, a los 
cuales relacionaremos en función del 
objeto del programa. 








s~ f til 
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SISTEMA (programa): 



(entrada)* (proceso) * (salida) 



Siguiendo este modelo, una vez tene- 
mos la finalidad del programa, pasamos 
a definir el ámbito de cada elemento: 
consistirá en determinar cual es exacta- 
mente la entrada y la salida, así como el 
formato que deben tener. Cuanto meior 



definido esté, más fácil será diseñar las 
sentencias a llevar a cabo. Es esencial 
tener en cuenta al definir, lo que es físi- 
camente posible con el hardware y firm- 
ware de que se dispone (viabilidad). 
Una vez definidas las funciones de 





entrada y de salida, es necesario definir 
o especificar, en relación a lo anterior 
las tareas del proceso que serán tanto 
más fáciles de convertir en sentencias 
cuanto más definidas estén las de entra- 
da/ salida. 

DISEÑO JERÁRQUICO DE ENTRADA 
PROCESO/ SALIDA 

Cuando ya tenemos el programa-pro- 
blema definido por su entrada y su sali 
da, debemos descomponer el proceso 
en partes más simples; simples en el 
sentido en que a la vez que lo estamos 
especificando y definiéndolo más, nos 
será mucho más útil y simple progra- 
marlo 

Las divisiones han de cumplir dos 
condiciones: ser exhaustivas y exclu 



DIAGRAMA A 



ventes entre sí Por una parte, hemos 
oartido dp una descripción qeneral del 

problema v hemos realizado una seiie 
de divisiones del mismo, por su natu*a- 
leza más simples, por lo tanto la suma 
total de las divisiones nos ha de dar el 
problema inicial en definitiva han de ser 
exhaustivas Otra cuestión es la exclusi- 
vidad, se refiere a que cada división que 
hagamos ha de cumplir una tarea espe- 
cífica y única. La estructura de estas di- 
visiones siguen también el modelo de 
entrada/proceso/salida pero aplicado a 
la subárea concreta de cada división. 

Siguiendo este esquema de divisio- 
nes, y cumpliendo siempre los dos crite- 
rios anteriores, debemos ir dividiendo 
cada vez más cada parte hasta conse- 
guir que rada una de pila? pueda expre- 
sarse directamente utilizando el menc 
número posible de sentencias Por 



o o 

ejemplo, si al proceso general lo hemos 
HiviHíH* on tros nartps. v rada una de 

esae o« f taw s<guen siendo aún muy am- 
plias v poco definidas, iremos subdivi- 
diéndolaQ a su vez en otras, hasta con- 
sequir r.onrrptarias al máximo (Ver dia- 

gt^rnf* A) 

Las divisiones pueden expandirse 
tanto come» sea necesario, o nada en ab- 
soluto según sea el caso. El sumatorio 
de cada uno de los niveles de las divisio- 
nes que hagamos siempre deberá dar 
comr resultado e' proreso qeneral Por 
ultime hav que añadir que oáda si indivi- 
sión tejará su entrada o bien de la en- 
trada al programa, o bien de la salida de 
la subdivisión precedente, por ejemplo: 
en el qráfico, "A" tomará su entrada de 
la ent^ri-} onnrinal al proceso, mientras 
que al.? 5 toi na ^ su entrada de la salida 
de a1 1 . 



o 



co 



LU 



ü 



O 



Q_ 





= PROCESO 



c 2 = PROCESO 



tfROcfésÓ 
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Tenemos que recordar que el orden 
establecido en las divisiones no se pue- 
de alterar en el sentido de ir hacia atrás o 
adelante, o realizar saltos, para ello te- 
nemos que emplear una serie de medi- 
das que exponemos a continuación. 

Uno de estos casos es cuando tene- 
mos subrutinas totalmente indepen- 
dientes (p.e./ subrutinas que se usan 
para la lectura de datos de varias de las 
rutinas del programa), del curso del pro- 
grama. Para solucionar este caso, tene- 
mos que construir la rutina independien- 
temente del resto del programa y colo- 
carla al final del diagrama, dejando, eso 
sí, varios niveles de separación. Para el 
punto del diagrama desde donde se re- 
quiere hasta Ta subrutina se indica con 
trazo discontinuo. 

Otra cuestión a tener en cuenta es 
como se manejan las condiciones, del 



BASIC MSX, que pueden provocar inte- 
rrupciones. Este es el caso de las ruti- 
nas de desvío del tipo ON condición 
GOSUBnnnn. Para tratar este tipo de 
subrutinas se construyen a parte, dejan- 
do varios niveles, pero estando alerta 
para que no influyan, ni dependan del 
programa principal en el que se produce 
la condición que puede provocar la inte- 
rrupción. Por otra parte hay que prestar 
atención al control de condiciones, 
puesto que forma parte del programa 
principal, y se tiene que especificar si se 
han cumplido o no las condiciones, para 
controlar que el proceso se realiza co- 
rrectamente, todo esto debe formar par- 
te de la sección principal de la descrip- 
ción del programa. 

Este sistema de programación jerár- 
quica nos permite obtener una descrip- 
ción muv precisa del Droarama. Dor lo 




que la redacción resulta muy sencilla de 
realizar, además de solucionar muchos 
de los problemas de construcción inter- 
na que generalmente se presentan en la 
corrección final del programa. 




REGALATE Y DISFRUTA DE W LIBRO 



VITAL P 




ARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



I XV II K (.1 i NIUHO 



JUAN ( AHI OS GON/A1 I / 



j4rui mi\ velocidad de ejecución 

componer música d una. dos o Iré* voces 

organizar tus propios programas de gestión,... 

LOS SECRETOS DEL 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Poker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 
MANHATTAN TRANSFER. S.A. importante: No se hace contra reembolsos. 

Nombre y apellidos 

Calle n.° ciudad ZZ^ZZ'^wZ 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

importante: indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca ¡ Batlle, 10-12 Bajos-08023 BARCELONA 
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2.° GRAN 



CONCURSO 



PROGRAMA 



DEL AÑO 



CREA T ENVIANOS TU PROGRAMA. HAT PREMIOS PARA TI T PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 

POR EL «LISTADO DE ORO» Y UNA FABULOSA UNIDAD DE DISCO. 




í- 



BASES 

Podrán participar todos nuestros 
lectores cualquiera sea su edad, con 
uno o más programas. 
Los programas se clasificarán en 
tres categorías: 
A- Educativos 
B- Gestión 
C- Entretenimientos 
Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se insertará el cupón-etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 
No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

Junto a los programas se incluirán 
en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarios 
que el autor considere de interés. 
Todos los programas han de estar es- 
tructurados de modo claro, separan- 



do con REM los distintos apartados 
del mismo. 



PREMIOS 

7- SUPER JUEGOS EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 

AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en más de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 

6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar fuera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de in- 
terés, premiando a sus autores. 

FALLO Y JURADO 

10- Nuestro Departamento de Progra- 



mación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de S.J. EXTRA MSX. 

1 1- Los programas recibidos no se devol- 
verán, salvo que el autor lo requiera 
expresamente. 

12- La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13- El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

13- El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO EXTRA 
MSX 

Roca i BatUe, 10-12 
bajos 

08023 Barcelona 






PROGRAMA 



N. 



NOMBRE DEL PROGRAMA 



CATEGORIA 




K 

INSTRUCCION DE CARGA 



AUTOR: 
EDAD: 

C A T i T í E i •••••••••••••••••••• 

CIUDAD 

N.° DE RECEPCION 



DP 



TEL.: 
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La rutina de grabación de un progra- 
ma nos resulta tediosamente familiar: 
Comprobar las conexiones del cassette, 
colocar la cinta, escribir cualquiera de 
las instrucciones de carga con las que 
vayamos a trabajar, pulsar PLAY + 
REC, validar la orden de carga pulsando 
RETURN y .. dependiendo de la longi 
tud del programa y el formato de graba- 
ción, podemos escoger entre fumar un 
pitillo, ir a dar una vuelta, tomar algo o 
quedarnos mirando a las musarañas 
hasta que los datos terminen de gra- 
barse. 

De todos modos, no tenemos por que 
conformarnos con toda esta rutina Ac- 
tualmente ) todos (o casi todos) los fabri- 
cantes de la norma han lanzado al mer- 
cado unidades de disco -herramientas 
de una utilidad incalculable- que pue- 



den convertir la lama y aburrida espera 
de la grabamnn/rarqa de los programas 
en escasos segundos de atención a la 
pantalla. 

Una ventaja adicional que proporcio- 
na el hecho de trabajar con disco, es la 
posibilidad de utilizar otros sistemas 
operativos como son el CP/M y el MSX- 
DOS, ambos adaptados al standard. 

Todas las unidades de disco, se co- 
nectan al ordenador mediante un cartu- 
cho de interfa* que puede colocarse en 
cualquiera de las ranuras. Este cartu- 
cho, además de conectar la unidad al 
sistema lleva incorporado el sistema 
operativo de dteca para lo cual es indis- 
pensable qi ie la RAM del aparato sea de 
64K, bien porque el aparato sea de esas 
características o porque se haya expan- 
dido la RAM mediante un cartucho. En 



este último caso, debe tomarse buena 
nota de que si se desea conectar una 
unidad de disco a una consola de menos 
de 64K con un cartucho de expansión 
éste debe ser de 64K, puesto que si se 
utiliza uno de 16K aunque la RAM de 
usuario sea aparentemente la misma 
sólo se reservan 3K para el sistema ope- 
rativo. Si se utilizara un cartucho inade- 
cuado ni siquiera llegaría a inicializarse 
el sistema. 

Además de llevar la conexión para el 
ordenador, las unidades MSX llevan en 
su parte trasera un conector preparado 
para colocar una segunda unidad de 
disco en conexión serial con la primera. 

Tras esta breve introducción, pasa- 
mos a comentar 5 unidades de disco de 
5 compañías líderes en el standard: 
SONY, PHILIPS, TOSHIBA, CANON y 
MITSUBISHI. 





o primero que constatamos en 
esta unidad de disco es su as- 
pecto sólido, por otra parte ya 
común a los aparatos de la marca 
Canon. Su diseño de estilo vertical 
es sencillo y dinámico y el usuario se 
siente muy cómodo con ella. En su 
parte posterior encontramos las co- 
nexiones de alimentación, de inter- 
face para ordenador y de extensión 
para otro disk drive. 

Su aspecto frontal da la idea de 
extrema funcionalidad con que han 
trabajado los diseñadores de este 
periférico. El botón de encendido se 
encuentra en la parte frontal y su co- 
lor es lo suficientemente claro como 
para que nadie se equivoque y para 
saber en todo momento si está en- 
cendida o no, cuenta con un led en- 
cima de este mismo botón, que se 
complementa con símbolos gráfi- 
cos. 

El pulsador de eyección es de 
buen tacto. Esta unidad de disco tra- 
baja con diskettes de 3,5 pulgadas, 
de doble densidad y doble cara con 
una capacidad de 1 megabyte no 
formateado y 737,7 K formateados. 

Conclusiones: 

Lo bueno: Buen diseño y solidez. 
Preparada para aceptar una segun- 
da unidad. Visualización clara de los 
mandos. Suministra disco con el sis- 
tema operativo MSX DOS. 

Lo malo: Es imprescindible co- 
nectar toma a tierra por su elevada 
electricidad estática. 



FICHA TECNICA 

V 

Consumo de corriente: 16 W. 
Fuente de alimentación propia. 

Capacidad de disco: 1.0 M. byte 
no formateado y 737,3 Kb. forma- 
teado (9 sectores/ pista) 

Tipo. 3,5" de doble cara y doble 
densidad. 

Peso: 2,7 kg. 

Dimensiones: 136 x 109 x 21,8. 




Cartucho interface por dentro 



Unidad de disco VF-100 Canon 




VP-100 CANON, SOLIDA Y POTENTE 



UNIDAD DE DISCO 

PHILIPS VYOO 1 0/VYOO 1 1 
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PHILIPS 
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La velocidad de la unidad de disco 
VYO0 10 proporciona -además de 
un rápido acceso, un sistema de 
almacenaje de datos y programas de 
gran capacidad así como un medio muy 
rápido y adecuado para el intercambio 
de estos. 

Esta unidad es de formato vertical, 
gran estabilidad y atractivo diseño. Ac- 
tualmente existe una gran cantidad de 
software disponible en diskette (softwa- 
re editado anteriormente en otros sopor- 
tes como cartucho ROM o incluso cinta), 
pero además de esto existe un software 
editado exclusivamente en disco debido 
a su gran capacidad de almacenaje 

El paquete de entrega de la unidad de 
disco VY 001 0 incluye además de la uni 
dad de disco con su propia fuente de ali- 
mentación el cartucho de interfaz, cable 
con conectores, un diskette virgen y un 
manual de instalación. 

La unidad VYO0 10 está diseñada 
como primera unidad para conexión di- 
recta mediante el interfaz que se inserta 
en cualquiera' de las ranuras de cartu- 
cho. Existe una segunda unidad como 
habrán observado nuestros sagaces 
lectores. Se trata de la VY001 1 , diseña- 
da especialmente como segunda uni- 
dad que se conecta a la principal 
VY0010 en una configuración denomi- 
nada «de cadena daisy». 

La operación de la unidad de disco 
como primera o segunda es selecciona- 
ble mediante un interruptor situado en el 
panel posterior. Esta segunda unidad se 
suministra tan sólo con un cable para 
efectuar la conexión a la VY0010 y el 
manual de instalación. 

Tanto una como otra, utilizan los dis- 
kettes de 3'5" de simple cara, quedando 
por lo tanto una capacidad una vez for- 
mateados de 360Kb por diskette. 

La velocidad de transferencia de los 
datos es de 250 Kb/seg. 

Lo bueno: Cómoda de manejo. Dise- 
ño acertado. Suministra diskette virgen. 

Lo malo: Tan sólo facilita manual de 
instalación. No incluye disco con MSX- 
DOS. 



FICHA TECNICA 



Consumo energético: 25 W 
Diskettes: de 3'5" 

Tipo: doble densidad. Simple cara 

Capacidad: 

500 Kb (360 formateado) 

Densidad de registro: 8187 bpi 
Velocidad de transferencia: 
250 Kb / seg. 
Tiempo de acceso: 
Medio: 350 mseg 
Entre pistas: 1 2 mseg 
Alimentación 220 V CA, 50 Hz 
Dimensiones: 420x283x85 mm 
Peso: 38 Kg. 
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a toda la banda de Chop Suey. 



El malvado Yen Pey ha sido el único superviviente. 
¡¡AQUI TIENES LA REVANCHAS 




102 JUGADORES 

- CICLISMO 

- TRIPLE SALTO 

- DESLIZAMIENTO 

- SALTO CON PERTIGA 
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RECORTA Y ENVIA ESTE CUPON A: ^ SERMA, C/. BRAVO MURILLO, N.° 377, 3 ° A - 28020 MADRID - TELEFONOS: 733 73 1 1 - 733 74 64 



CANTIDAD: 

NOMBRE Y APELLIDOS: 

DIRECCION: 

POBLACION: 



JCODIGO POSTAL 
.PROVINCIA: 



FORMA DE PAGO: 



ENVIO TALON BANCARIO □ CONTRA REEMBOLSO □ 
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REGO 



BQCIUMAS 
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SiíMi _ 

EL LENGUAJE MAQUINA 



DE ESPAÑA 
- 150PTAS. 



l" 



'ANCO DE PRUEBA 
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DISK DRIVE SONY HBD-SO 



La HBD-50 de SONY es una unidad 
de formato horizontal (a primera 
vista parece un auto radio) utiliza 
microdiscos flexibles de 31/2" de simple 
cara, con una capacidad de 500 Kb que 
se reducen a 360 una vez formateados. 

Una vez conectada la unidad de disco 
al ordenador, ya podemos conectar la 
alimentación tanto de la unidad como 
del ordenador. Tras esto, aparecerá en 
pantalla el mensaje: 

Enter Date (D-M-Y): 
Tras pulsar RETURN, iremos a la 
pantalla principal y ¡Oh sorpresa! vere- 
mos que bajo la leyenda habitual apare- 
cen dos líneas indicando que estamos 
trabajando en MSX-DISK BASIC ver- 
sión 1 .0 

Si nos fijamos en la parte donde se 
nos indica la memoria disponible, vere- 
m9s que esta es de 23430 bytes libres, 
pues los aproximadamente 5K restan- 
tes son ocupados para la gestión del dis- 
co. 



El MSX-DISK BASIC es todo el len- 
guaje BASIC que incluye todos los man- 
datos y funciones que necesitamos para 
grabar o cargar los datos de la memoria 
del ordenador en un disco y viceversa. 

La velocidad de transmisión de los da- 
tos en esta unidad de disco es de 250 Kb 
por segundo pudiendo trabajar con fi- 
cheros secuenciales y/o aleatorios. 

Al ser una unidad de tipo horizontal; el 
centro de gravedad es bajo, no teniendo 
ningún problema de estabilidad. Con la 
unidad se suministra un cartucho de in- 
terfaz además de un excelentemente 
confeccionado manual de introducción 
al MSX-DISK BASIC. 

Lo bueno: Manejable. Estable. Có- 
moda de manejar. Completo manual de 
introducción al MSX-DISK BASIC. Se 
suministra un diskette virgen. 

Lo malo: No suministra diskette con 
el sistema operativo MSX-DOS. 




FICHA TECNICA 



Consumo energético: 24W 
Diskettes:de 3*5" 
Tipo: Densidad doble. Simple 

Capacidad: 

500 Kb (360 formateado) 
Bytes/sector : 51 2 
Sectores/pista: 9 
Pistas/cilindro: 1 
Pistas/microdlsco: 80 
Densidad de registro: 
8187 bits/pulgada 
Velocidad de transferencia: 
250 Kb/segundo 
Tiempo de acceso: 
Medio: 350 mseg 
Entre pistas: 12 mseg 
Alimentación 220 V CA, 50 Hz 
Dimensiones: 160x67x260 mm 
Peso: 2*7 Kg. 




HX-F101, EL «FLOPPY» DE TOSHIBA 



Nos encontramos ante una unidad 
de discos del tipo vertical. Esto 
no es, ni mucho menos, exclusi- 
vo de TOSHIBA, puesto que otros flop- 
pys MSX también adoptan esta configu- 
ración. No obstante, ésta es bastante 
estrecha, lo que da, al desembalarla, 
una sensación de inestabilidad. De cual- 
quier forma, rápidamente se constata 
que la mayor parte del peso, unos 2,8 
kg, se encuentra situado en la base, lo 
que hace que el centro de gravedad esté 
muy bajo y la inestabilidad sobre la 
mesa de trabajo sea perfecta, ahorran- 
do, por lo demás, un espacio que las uni- 
dades horizontales no permiten. 

El interruptor de encendido se en- 
cuentra en la parte trasera, lo que agra- 
decerán los usuarios. Hay que tener 
presente que desconectar accidental- 
mente la alimentación, cuando en el in- 
terior hay un floppy, puede llevar a que 
la información contenida en éste se de- 
teriore, y recuperar datos dañados de un 
disco no es como hacerlo de una casset- 
te. 

El pulsador de extracción es de los 
que ofrece un buen tacto. Asimismo, el 
led rojo de «in use» se ve perfectamen- 
te, no como en otras unidades, en las 
que es dificilísimo saber si el modesto 
led verde está o no encendido. 

CONCLUSIONES 

Lo bueno: El ahorro de espacio y la 
estabilidad. Pulsador de extracción có- 
modo. Interruptor de alimentación bien 
situado. Led de indicador de funciona- 
miento fiable. 

Lo malo: Manual en Inglés. No se su- 
ministra el disco con el sistema operati- 
vo MSX-DOS. 







FICHA TECNICA 



Consumo de corriente (fuente de 
alimentación propia): 150 mA. 

Capacidad de los discos: 360K 
formateado. 

Tipo: simple cara doble densi- 
dad (1DD). 

Velocidad de transferencia: 31,2 
Kbytes por segundo. 
Tiempo de acceso: 350 msec. 
Alimentación: 220V AC. 
Consumo de potencia: 13W 
Peso: 2,8 K. 

Dimensiones: 67mm (anchura) x 
125 mm (altura) x 270 (longitud) 











UNIDAD DE DISCO MITSUBISHI ML-30FD 




sta unidad de disco presenta una 
serie de diferencias con respecto 
a las otras de la norma que mere- 
cen especial atención por parte de los 
usuarios. 

En primer lugar, externamente se 
puede observar que la unidad -de atrac- 
tivo diseño- además de llevar la ranura 
habitual para la inserción del disco, lleva 
una ranura adicional preparada para la 
colocación (de una manera muy sencilla 
y muy barata) de la mecánica de una se- 
gunda unidad. 

Así pues, esta unidad de disco de tipo 
vertical ya nos anticipa externamente 
que no se trata de una más. 

La unidad de disco ML-30FD utiliza 
discos de 3,5" grabando simultánea- 
mente por las dos caras, doblando por 
tanto la capacidad de otras marcas. 
Esto nos da una capacidad total de 1 Mb 
sin formatear, es decir de 720 Kb, forma- 
teado. 



Esta unidad permite además trabajar 
con 8 formatos diferentes de grabación. 
Por si esto fuera poco, Mitsubishi habla 
de la compatibilidad entre el formato de 

grabación del sistema operativo MS- 
OS del IBM PC y el MSX-DOS, cosa 
que aunque no hayamos tenido ocasión 
de comprobar estamos seguros de que 
es perfectamente posible. 



CONCLUSIONES 

Lo bueno: Preparada para albergar 
la mecánica de una segunda unidad, 
ofreciendo en este caso al usuario una 
configuración total de 2Mb (1400Kb for- 
mateados). Controlador preparado para 
la conexión de 4 unidades. Trabaja con 
diskettes de doble cara. Atractivo diseño 
y comodidad de manejo. 8 formatos di- 
ferentes de grabación. 




Lo malo: No suministra disco con el 
sistema operativo MSX-DOS. 



PICHA TECNICA 

Consumo de energía: 16W. 

Capacidad del disco: 720 Kb for- 
mateado. 

Tipo: Discos de 3,5" de uno o do- 
ble lado standard 

Velocidad de transferencia: 250 
Kb por segundo. 

Tiempo de acceso pista a pista: 1 2 
msec. 

Tiempo de acceso promedio: 331 
msec. (incluyendo anillo de bús- 
queda y fijo) 

Peso: 2,5 Kg. 

Dimensiones: 86 x 270 x 166 mm. 
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Libro de guardé, Cff. ^jte p§ta<f> 




egistro de los mensajes 
rse. Este programa 

D 



JL SIRGO 




10 ' M. A. Sirgo Ortea para M S X 

20 ' Libro de guardia 

30 ' INICIALIZAR 

40 CLEAR 4000 

50 CLS: J=0:Q1=31:KEY OFF 

60 D I M KL* ( 250 ) , DT* ( 250 ) , UT* ( 250 ) , F 

Q* ( 250 ) 

70 D I M MD* ( 250 ) , PR* ( 250 ) , RS* ( 250 ) , R 
R*<250) 

80 DIM UE*<250) ,QS*<250) ,QR*<250) ,C 

* * * 

M* (250) 

90 BL*=" ! " 

100 El*=" MUY LARGO." 

110 E2*=" CARACTERES MAX." 

120 LOCATE 8,5:PRINT"* LIBRO DE GUA 

RDIA *" 

130 PR I NT TAB <8) " # LIBRO DE GUARDIA 

140 PR I NT TAB (8)"* LIBRO DE GUARDIA 

150 LOCATE 2, 20: PRI NT "DESE A INICIAL 

IZAR UN FICHERO <S/N>?" 

160 A*=INPUT*<1) : IF A*="S" THEN 180 

170 IF A*="N" THEN 460 ELSE 160 

180 ' INICIALIZAR FICHERO 

190 CLS:PRINT:PRINTTAB(5) "INICIALIZ 

AR FICHERO": PRI NT 

200 GOSUB 900: IN*=KX* 

210 GOSUB 940 

220 INPUT"NUMERO DE REGISTRO" ; NR: ZZ 

= l 

230 ' CARATULA 

240 CLS: LOCATE 8, 5: PRI NT" LIBRO DE G 

UARDIA DE: " ; IN* 

250 TT=LEN < IN*) : L0CATE28, 6 

260 FOR F=l TO TT: PRINT""" : : NEXT F 

270 PRINT: PRINT: PRINT TAB (2) "REGIS 

TRO NUMERO " ; NR: PRINT 

280 IF ZZOl THEN 290 ELSE PRINTTAB 



(2) "CREADO EL :";DA*:GOTO 320 
290 PRINTTAB (2) "CREADO EL:"jDT*<l) 
300 PRINT: PRINT TAB <2) "ENTRADAS -" 
| J 

■ 

310 PRINT: PRINT TAB (2) "ULTIMA ENTR- 
ADA: ";DT*(J) 

320 LOCATE 5, 20: PRI NT "PULSE UNA TEC 
LA PARA CONTINUAR" 

330 A*= I NPUT* ( 1 ) : I F A*< >"" THEN 340 

ELSE 330 
340 ' MENU PRINCIPAL 

350 CLS: LOCATE 5. 2: PRI NT "PULSE NUME 
RO DE OPCION: " 

360 PRI NT: PRI NT: PRI NT TAB (5) "1.- R 
EG I STR AR NUEVO OSO . " : PR I NT 
370 PRINT TAB (5) "2.- MODIFICAR REG 
ISTRO. ": PRINT 

380 PRINT TAB (5) "3.- BUSQUEDA DE U 
N INDICATIVO. ": PRINT 

390 PRINT TAB (5) "4.- LISTADO DE DA 
TOS. ".-PRINT 

400 PRINT TAB (5) "5.- IMPRIMIR 5 UL 
TIMOS OSO. ": PRINT 

410 PRINT TAB (5) "6.- SALIDA DE DAT 

OS A CASETTE. " 

420 A*= I NPUT* ( 1 ) : AO=VAL ( A* ) 

430 IF A0<1 OR A0>6 THEN 420 

440 ON AO GOSUB 630,1220,2650,1690, 

2430, 2510 

450 GOTO 340 

460 'ENTRADA DATOS CASETTE 
470 CLS:M=0 

480 PRINT" COLOQUE LA CINTA DE DA 
TOS Y PULSE": PRINT 

490 PRINT" « ENTER » CUANDO TENGA 
EL CASETTE": PRINT 
500 INPUT"LISTO";NO* 

510 PR I NT :PRI NT "LE YENDO. ..": MOTOR O 
N 



— 



INPUT#1,DT*(M) : I 
INPUT#1 ,MD*(M) : I 
INPUT* 1,RR*(M) : I 
INPUT#1,QR*<M> : I 



520 OPEN"CAS:QSL" FOR INPUT ASI 
530 I NPUT# 1 , J : I NPUT# 1 , I N* : I NPUT# 1 , N 

R 

540 IF EOF(l) THEN 610 
550 M=M+1 

560 INPUT#1.KL*(M) 
NPUT#1,UT*(M) 
570 INPUT#1,FQ*(M) 
NPUT#1,PR*(M) 
580 INPUT#1.RS*(M> 
NPUT#1,UE*(M) 
590 INPUT#1,QS*(M) 
NPUT#1,CM*(M> 
600 GOTÜ 540 
610 CLOSE: MOTOR OFF 
620 GOTO 230 

630 ' REGISTRO NUEVO QSO 
640 J=J+1:CLS 
650 GOSUB 900:KL*(J)=KX* 
660 GOSUB 940: DT*(J) =DA* 
670 PRINT"Cual es 1 a hora de comien 
z o";: GOSUB 1060: UT*( J) =U* 
680 INPUT"Cual es la frecuencia?" ; F 
Q*(J) 

690 IF LEN(FQ*(J) ) >8 THEN PRINTBL*; 
E1*;B;E2*:G0T0 680 

700 INPUT "Cual es el 
710 IF LEN (MD* ( J ) ) >3 THEN 
El*; 3; E2*: GOTO 700 

720 INPUT "Cual es la potenci a?" ; PR* 
(J) 

730 IF LEN(PR*(J) ) >4 THEN PRINTBL*; 
E1*;4;E2*:G0T0 720 

740 INPUT "Cual es su RST?";RS*(J) 
750 IF LEN(RS*(J) ) >3 THEN PRINTBL*; 
El*; 3; E2*: GOTO 740 
760 INPUT "Cual es mi 

770 IF LEN (RR* ( J) ) >3 THEN PRINTBL*; 
E1*;3;E2*:G0T0 760 

780 PRINT"Cual es la hora de -final 
QSO'?" ;: GOSUB 1060: UE* ( J ) =U* 

INPUT"Enviare OSL (E)?";QS*(J) 
IF LEN < OS* ( J ) ) > 1 THEN PRINTBL*; 
El*; 1;E2*:G0T0 790 

810 PRINT"Entra un comentar i o ("; Cl ; 
"caracteres ma:: ) " ; 
820 INPUT CM*(J) 

830 IF LEN(CM*(J) ) >C1 THEN PRINTBL* 
; LEN (CM*) -Cl : "Demasiados caracteres 
. Repite" : GOTO 820 

840 LOCATE 1 , 20 : PR I NT " SEF5ALE OPCION 

850 PRINT"1.- NUEVO QSO - 2.- MEN 
U" 



modo?";MD*(J) 

ÍINTBL*; 



RST?" ; RR* (J) 






860 A*=INPUT*(1) 
870 IF A*="l" THEN 630 
880 IF A*="2" THEN RETURN 
890 GOTO 860 

900 » ENTRADA INDICATIVO 

^10 CLS: INPUT" Indicativo del corres 

ponsal?" ; KX* 

920 IF LEN(KX*)>10 THEN PPINTBL*;E1 

*; 10: E2*: GOTO 900 

930 RETURN 

940 ' ENTRADA FECHA 

950 INPUT" Cual es la fecha (DD/MM/AA 
)?";DA* 

960 IF LEN (DA*) <6 THEN 1050 
970 IF MID*(DA*,3, 1)^"/" THEN 1000 
980 IF MID*<DA*,2.1) < > " / " THEN 1 050 
990 DA*="0"+DA* 

1000 IF M ID* (DA* ,6, 1)="/" THEN 1030 
1010 IF NID*(DA*.5, 1)<>"/" THEN 105 
0 

1020 DA*=LEFT* (DA*, 3) + " 0 " +R I GHT* ( DA 
*,4) 

1030 IF LEN(DA*)<>8 THEN 1050 
1040 RETURN 

1 050 PR I NTBL* ; " ERROR . REP I TE . " : GOTO 

940 

1060 ' ENTRADA HORA 

1070 INPUT" (HHMM) ?" ; U* 

1080 IF LEM(U*)>4 THEN PRINTBL*; El* 

; 4; E2*; "Repite": GOTO 1060 

1090 IF U*="" THEN RETURN 

1100 IF LEN ( U* ) < 4THEN FORH=LEN ( U* ) + 
1 TO 4:U*="0"+U*:NEXT H 
1110 RETURN 

1120 ' PRESENTACION CABECERA 

1130 CLS:PRINT" N° INDICATIVO HOR 

A POT. RST OSL" 

1140 PR I NT " OSL FECHA FREC. M 
ODO (S/M) E/R" 

1150 PRINT" 

1160 RETURN 

1170 ' ESCRIBIR QSO 

1180 PRINT F: TAB (6) KL* (F) ; TAB ( 17) 
UT*(F) ;TAB(24)PR*(F) ; TAB (30) RS*(F) 
;TAB(35) QS*(F) 

1190 PRINTTAB (6) DT* (F) ; TAB ( 1 7 ) FQ* ( F 
) ;TAB(24)MD*(F) ; TAB (30) RR* (F) ;TAB(3 
5)QR*(F) 

1200 PRINTTAB (6) "*. ":CM*(F) 
1210 PRINT: RETURN 

1220 'EDITAR UN REGISTRO A MODIFICA 
R 

1230 CLS:A*="" 



1240 PRI NT "ENTRA EL NUMERO DE REGIS 
TRO A EDITAR O" 

1250 INPUT"DA << ENTER > > PARA EDI T 
AR EL ULTIMO. " ; A* 

1260 IF A*-"" THEN F=J:GOTO 1290 
1270 F=VAL<A*> 

1280 IF F>J OR F<1 THEN 1220 

1290 GOSUB 1120:GOSUB 1170 

13' 7, 0 PRI NT "DESEA CORREGIRLO (S/N)? M 



\ 



PARA CONS 



1310 A*=INPUT*<1) 
1320 IF A*="S" THEN 1350 
1330 IF A*="N" THEN 340 
1340 GOTO 1310 
1350 PRI NT "DA « ENTER 
ERVAR LA INFOR-MACION" ; 
1360 PRI NT" O UN NUEVO VALOR PARA C 
AMBIARLO. " 

1370 PRI NT "FECHA: "; DT* <F) ;: INPUT DA 
*:IF DA*<>"" THEN GOSUB 960:DT*<F)= 
DA* 

1380 PRI NT "HORA DE COMIENZO: "; UT* <F 
) ; : I NPUT U* : I F U* < > " " THEN GOSUB 1 0 
80:UT*<F)=U* 

1 390 PR I NT " FRECUENC I A: " ; FO* ( F ) ; : I NP 

UT A*:IF A*="" THEN 1420 

1400 IF LEN(A*>>8 THEN PRINT BL*;E1 

*;S;E2*:G0T0 1390 

1410 FQ*(F)=A* 

1420 PRI NT "MODO: ";MD*<F> ; : INPUT A*: 
IF A*="" THEN 1450 

1430 IF LEN(A*)>3 THEN PRINT BL*;E1 
*;3;E2*:G0T0 1420 
1440 MD*<F)=A* 

1450 PRINT" POTENCIA: ";PR*<F> ; : INPUT 

A*:IF A*="" THEN 1480 
1460 IF LEN(A*>>4 THEN PRINT BL*;E1 
*;4;E2*:G0T0 1450 
1470 PR*(F)=A* 

1480 PRINT"SU RST: ";RS*<F) ;: INPUT A 
*: IF A*="" THEN 1510 

1490 IF LEN<A*)>3 THEN PRINT El*;3; 
E2*:GOTO 1480 
1500 RS*<F)=A* 

1510 PRINT"MI RST: ";RR*<F) ;: INPUT A 
*: IF A*="" THEN 1540 

1520 IF LENCA*) >3 THEN PRINT El*;3; 
E2*:G0T0 1510 
1530 RR*(F)=A* 

1540 PRI NT "HORA FINAL DEL OSO (QRT) 
: ";UE*(F) ;: INPUT U*:IF U*< > " " THEN 
GOSUB 1080:UE*(F)=U* 

1550 PR I NT " EN V I ADA QSL (E) : " ; OS* (F> 

;: INPUT A*: IF A*="" THEN 1580 

1560 IF LEN (Aí)Ol THEN PRINT BL*; 




El*; 1;E2*:G0T0 1550 
1570 QS*(F)=A* 

1 580 PR I NT " REC I B I D A QSL ( R ) : " ; QR* ( F 
);: INPUT A*: IF A*="" THEN 1610 
1590 IF LEN (A*) OI THEN PRINT BL$; 
El*; 1;E2*:G0T0 1580 
1600 QR*(F)=A* 

1610 PRINT"COM. ";CM*(F) ; : INPUT" . . .? 

";A*:IF A*="" THEN 1640 

1620 IF LEN(CM*)>C1 THEN PRINT BL*; 

E1*;C1 ;E2*:G0T0 1610 

1630 CM*(F)=A* 

1640 PRI NT "CORRECTO (S/N)?" 

1650 A*=INKEY* 

1660 IF A*="N" THEN 1290 

1670 IF A*="S" THEN RETURN 

1680 GOTO 1650 

1690 ' MENU LISTADO DE DATOS 

1700 CLS: LOCATE 3, 3: PRINT"LISTADO D 

E DATOS POR " 

1710 PR I NT : PR I NTTAB ( 5 ) " 1 . - INDICATI 
VO. " 

1720 PR I NT : PR I NTTAB ( 5 ) " 2 . - MODO." 
1730 PRINT: PRI NTTAB (5) "3. ~ FRECUENC 
IA. " 



1740 PRINT: PRINTTAB(5) "4. - PREFIJO. 
" 

1750 PRINT: PRI NTTAB (5) "5. - FECHA." 
1760 PR I NT : PR I NTTAB ( 5 ) " 6 . - QSL'S NO 
RECIBIDAS. " 

1770 PR I NT : PR I NTTAB ( 5 ) "7 . - TODOS LO 
S OSO. " 

1780 LOCATE 5, 20: PRI NT "PULSE NUMERO 
DE OPCION" 

1790 A*=INPUT*(1) : AO=VAL(A*) 

1800 IF A0<1 OR A0>7 THEN 1790 

1810 ON AO GOTO 1820,1880,2120,2280 

,2020,1960,2220 

1820 'LISTADO POR INDICATIVO 

1830 CLS: GOSUB 900: GOSUB 1120 

1840 FOR F=l TO J 

1850 IF KL*(F)=KX* THEN GOSUB 1170 

1860 NEXT F 

1870 GOTO 2350 

1880 'LISTADO POR MODO 

1890 CLS: INPUT "CUAL ES EL MODO";M* 

1900 IF LEN(M*)>3 THEN PRINTBL*;E1* 

;3;E2*:G0T0 1890 

1910 GOSUB 1120 

1920 FOR F=l TO J 

1930 IF MD*(F)=M* THEN GOSUB 1170 
1940 NEXT F 
1950 GOTO 2350 

1960 'LISTADO POR QSL'S NO RECIBIDA 











1970 GOSUB 1120 
1980 FOR F=l TO J 

1990 ÍF QR*(F)<>"R" THEN GOSUB 1170 

2000 NEXT F 

2010 GOTO 2350 

2020 7 LISTADO POR FECHAS 

2030 CLS: INF'UT" FECHA INICIAL (DD/MM/ 

AA ) " ; DA* : GOSUB 960 : SD*=M I D* ( DA* ,7,2 

) +MID*(DA*, 4, 2) +MID*<DA*, 1,2) 

2040 INPUT "FECHA FINAL (DD/MM/AA) ";D 

A*: GOSUB 960 : ED*=M I D* < DA* ,7,2) +MID* 

(DA*,4,2)+MID*(DA*, 1,2) 

2050 IF SD*>ED* THEN PRINTBL*; "ERRO 

R":GOTO 2030 

2060 GOSUB 1120 

2070 FOR F=l TO J 

2080 PT*=M I D* ( DT* (F) ,7,2) +M I D* ( DT* ( 
F) , 4, 2) +MID* (DT* (F) ,1,2) 
2090 IF PT*>=SD* AND PT*<=ED* THEN 
GOSUB 1170 
2100 NEXT F 
2110 GOTO 2350 

2120 'LISTADO POR FRECUENCIAS 
2130 CLS: INPUT "CUAL ES LA FREC. 
OR";LF 

2140 CLS: INPUT "CUAL ES LA FREC. 
OR " : UF 

2150 IF UF <LF THEN PRINTBL*; " 
:GOTO 2130 
2160 GOSUB 1120 
2170 FOR F=l TO J 
2180 FE=VAL(FQ*(F) ) 
2190 IF FE >=LF THEN 

GOSUB 1170 
2200 NEXT F 
2210 GOTO 2350 

2220 'LISTADO DE TODOS LOS OSO 
2230 GOSUB 1120 
2240 FOR F=l TO J 



MEN 



MAY 




IF FEOUF THEN 



GOSUB 1170 
2260 NEXT F 
2270 GOTO 2350 
2280 'LISTADO POR PREFIJO 
2290 CLS: PRINT"CUAL ES EL PREFIJO ( 
2 LETRAS) " 
2300 T*=INPUT*(2) 
2310 GOSUB 1120 
2320 FOR F=l TO J 

2330 IF MID*<KL*<F) , 1,2)=T* THEN GO 
SUB 1170 
2340 NEXT F 
2350 'OPCION LISTADO 
2360 PR I NT : PR I NT : PR I NT 



2370 LOCATE 1 , 20: PRI NT "SECALE OPCIO 
N: " 

2380 PRINT"1.- LISTADO DE DATOS - 

2.- MENU" 
2390 A*=INPUT*(1) 

IF A*="l" THEN 1690 
2410 IF A*="2" THEN RETURN 
2420 GOTO 2390 
2430 ' 5 ULTIMOS QSO 
2440 GOSUB 1120: 
2450 FOR F=J-4 TO J 
2460 GOSUB 1170 
2470 NEXT F 

2480 PRINT: PRINT: PRINT 

490 LOCATE 5, 20: PRINT "PULSE UNA TE 
CLA PARA CONTINUAR" 

2500 A*= I NPUT* < 1 ) : I F A* " " THEN 34 
0 ELSE 2500 
2510 'GRABANDO 

2520 CLS: PRINT TAB (8) "~ GRABAR EN C 
ASETTE -": PRINT: PRINT 

2530 PRINT "PULSE < < ENTER > S CUANDO T 
ENGA EL CASETTE" 
2540 INPUT"LI3T0";N0* 

2550 PR I NT : PR I NT " GRABANDO . . . " : MOTOR 
ON 

2560 OPEN"CAS:QSL" FOR OUTPUT ASI 
2570 PR I NT# 1 , J : PR I NT# 1 , I N* : PR I NT* 1 , 
NR 

2580 FOR M=l TO J 

2590 PRINT#1,KL*(M) : PRINT#1 , DT* (M) : 
PRINT#1,UT*(M). 

2600 PR I NT# 1 , FQ* ( M ) : PR I NT# 1 , MD* ( M ) : 
PRINT#1 .PR*(M) 

2610 PRINT#1,RS*(M) : PRINT#1 , RR* (M) : 
PRINT#1,UE*(M) 

2620 PR I NT#1 , OS* ( M ) : PR I NT# 1 , 
PRINT#1,CM*(M) 

2630 NEXT M 

2640 CLOSE: MOTOR OFF: RETURN 
2650 ' BUSQUEDA UN INDICATIVO 

2660 GOSUB 900: GOSUB 1120 
2670 FOR F=l TO J 

2680 IF KX*=KL*<F) THEN GOSUB 1170: 

GOTO 2700 

2690 NEXT F 

2700 LOCATE 5, 20: PRINT "SECALE OPCIO 
N: " 

2710 PRINT" 1. BUSCAR OTRO INDICATIV 

O. - 2. MENU" 

2720 A*=INPUT*(1) 
2730 IF A*="l" THEN 2650 
2740 IF A*="2" THEN RETURN 
2750 GOTO 2720 



CM) : 










TEST DE LISTADO 

Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previarr 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 10, de octubre 
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-236 


**3 q |9| 
O VJ 




1 1 o 




1 A 


1 (7ífl(7í 






— -¿ 1 o 


1 O O / Vi 


C"0 

— 




cr 0 

— UO 


2680 


- 5 


290 




191 




- 97 


1 090 


-159 


1490 


-156 


1890 


-203 


2290 


- 89 


2690 


-201 


300 




187 


700 


-112 


1 1 00 


- 79 


1500 


-180 


1900 


- 49 


2300 


-116 


2700 


- 93 


310 




78 


710 


-101 


1110 


-142 


1510 


-230 


1910 


-255 


2310 


-255 


2710 


- 18 


320 




249 


720 


- 33 


1 120 


- 58 


1520 


-186 


1920 


-236 


2320 


—236 


2720 


- 96 


330 




29 


730 


-140 


1130 


- 18 


1 530 


-179 


1930 


- 66 


2330 


-159 


2730 


- 1 60 


340 




58 


740 


—229 


1 140 


-127 


1540 


-190 


1940 


-201 


2340 


-201 


2740 


-189 


350 




255 


750 


-161 


1 150 


— 27 


1550 


-253 


1950 




2350 


- 58 


2750 


— 65 


360 




61 


760 


-210 


1 1 60 


-142 


1560 


-188 


1960 


- 58 


2360 


- 39 






370 




114 


770 


- 1 80 


1 170 


- 58 


1570 


-179 


1970 


-255 


2370 


- 89 






330 




230 


780 


-225 


1180 


-161 


1580 


- 98 


1980 


-236 


2380 


-100 






390 




139 


790 


-246 


1 190 


-252 


1 590 


-218 


1 990 


- 1 04 


2390 


- 96 


TOTAL: 


400 




54 


800 


-207 


1 200 


-206 


1600 


-178 


2000 


-201 


2400 


-220 


38064 



TRAN 



POR 



5 KEY OFF: COLOR 2,1,1:CLS 
10 SCREEN0: WIDTH32 
20 PRINT" PROGRAMA TRANSMISION 



• I 



PR I NT : PR I NT : PR I NT : PR I NT : PR I NT 
INPUT"PAUSA DE TRANSMISION (1 
";B* 



27 IF B*>"5" THEN 

30 PRINT: INPUT "TONO DE TRANSMISION 
(1 A 5) ";C* 

32 IF C*>"5" THEN 30 

35 PRINT: INPUT "LONGITUD DEL PUNTO 
(1 A 5) ";D* 
37 IF D*>"5" THEN 35 




40 PRINT:INPUT "LONGITUD DE LA RAYA 

(5 A 9) ";E* 
42 IF E*<"5" OR E* 



"9" THEN 40 



1 00 
110 
120 
130 
140 
150 
160 
170 

180 
190 

200 

210 

220 

230 

240 

250 

260 

270 

280 
290 

295 



IF B* 



IF 



IF D* 



II 1 II 


THEN 


M= 1 0 


ii2» 


THEN 


M=20 


ii *t ii 


THEN 


M=40 




THEN 


M=80 


1 1 B ; i 1 
w 


THEN 


M=16 


"1 " 


THEN 


Y=3 


II ^ II 


THEN 


Y=4 


II T 


THEN 


Y=5 


it q ii 


THEN 


Y=6 


"5" 


THEN 


Y=7 


ii ^ n 


THEN 


X=10 


•i ^ ii 


THEN 


X=9 


ii m n 


THEN 


X=8 


II A H 


THEN 


X=7 


"5" 


THEN 


X=6 


"5" 


THEN 


W=5 


"6" 


THEN 


W=4 


ii y ii 


THEN 


W=3 


il gu 


THEN 


W=2 




THEN 


W=l 



IF 
IF 

IF 
IF 

PL A Y " o=y ; " : PL A Y " V 1 5 " 



298 CLS 

299 LOCATE 0, 21 : PRINT"Para salir de 
1 programa pulsa 0":FOR 1=1 TO 800: 
NEXT:CLS 

300 X*=INKEY*:PRINT X* 
360 IF X*="0" THEN CLS: END 

410 IF X*="A" OR X*="a" THEN GOSUB 
12000:GOSUB 11000 
420 IF X*="b" OR X*="B" 
11 000: GOSUB i: 
12000 

430 IF X*="c" OR X*="C" 
11 000: GOSUB 12000: GOSUB 
12000 

440 IF X*="d" OR X*="D" 
11000: GOSUB 12000: GOSUB 
450 IF X*="e" OR X*="E" 

12000 

460 IF X*="-f" OR X*="F" 
1 2000 : GOSUB 12000 : GOSUB 



THEN GOSUB 
000 : GOSUB 1 2000 : GOSUB 

THEN GOSUB 
11000: GOSUB 

THEN GOSUB 
1 2000 

THEN GOSUB 



THEN GOSUB 
11000: GOSUB 



470 IF X*="g" OR X*="G" THEN GOSUB 
11000: GOSUB 11000: GOSUB 12000 
480 IF X*="h" OR X*="H" THEN GOSUB 

| 12000: GOSUB 12000: GOSUB 12000: GOSUB 
1 2000 

490 IF X*="i" OR X*="I" THEN GOSUB 
| 12000: GOSUB 12000 
500 IF XS="j" OR X*="J" THEN GOSUB 
1 2000 : GOSUB 1 1 000 : GOSUB 
1 1 000 



1 1000: GOSUB 



I 






THEN GOSUB 
12000: GOSUB 

THEN GOSUB 



THEN GOSUB 
12000 

THEN GOSUB 



510 IF X*="k" OR X*="K" THEN GOSUB 
1 1 000 : GOSUB 1 2000 : GOSUB 1 1 000 
520 IF X*= ,, l"' OR X*="L" 
1 2000 : GOSUB 1 1 000 : GOSUB 
12000 

530 IF X*="m" OR X*="M" 
11 000: GOSUB 11000 

540 IF X*="n" OR X*="N" THEN GOSUB 
11000: GOSUB 12000 

550 IF X*="o" OR X*="0" THEN GOSUB 
1 1 000 : GOSUB 1 1 000 : GOSUB 1 1 000 
560 IF X*="p" OR X*="P" THEN GOSUB 
1 2000 : GOSUB 11 000 : GOSUB 1 1 000 : GOSUB 
1 2000 

570 IF X*="q" OR X*="Q" THEN GOSUB 
1 1 000 : GOSUB 11 000 : GOSUB 1 2000 : GOSUB 
11000 

580 IF X*="r" OR X*="R" THEN GOSUB 
1 2000 : GOSUB 1 1 000 : GOSUB 1 2000 
590 IF X*="s" OR X*="S" 
1 2000 : GOSUB 1 2000 : GOSUB 
600 IF X*="t" OR X*="T" 
1 1 000 

610 IF X*="u" OR X*="U" THEN GOSUB 
1 2000 : GOSUB 1 2000 : GOSUB 1 1 000 
620 IF X*="v" OR X*="V" THEN GOSUB 
12000: GOSUB 12000: GOSUB 12000: GOSUB 
1 1 000 

630 IF X*="w" OR X*="W" THEN GOSUB 
1 2000 : GOSUB 1 1 000 : GOSUB 1 1 000 
640 IF X*="x" OR X*="X" THEN GOSUB 
1 1 000 : GOSUB 1 2000 : GOSUB 
1 1 000 

650 IF X*="y" OR X*= M Y" THEN GOSUB 
1 1 000 : GOSUB 1 2000 : GOSUB 1 1 000 : GOSU 
1 1 000 

660 IF X*="z" OR.X*= H Z" THEN GOSUB 
1 1 000 : GOSUB 1 1 000 : GOSUB 
12000 

1000 FOR N=l TO M*20:NEXT:GOTO 300 
10000 FORN=lTOM: NEXT: RETURN 
1 1000 PLAY"L=W; " : PLAY" A" : GOSUB 1000 
0 : RETURN 

12000 PLAY"L=X; "sPLAY"A"¡ GOSUB 1000 
0: RETURN 




12000: GOSUB 



: GOSUB 





































■ 













TEST DE LISTADO 




5 

10 
20 



27 
30 



191 
11 
189 
1 GQ 
89 
78 



35 
37 
40 
42 
100 
110 



95 
0 
101 
225 



120 
1 30 
140 
150 
160 



164 

205 
30 
140 



132 
143 



(SIGUE) 






170 


-144 


240 


-147 


298 


-159 


440 


1 1 80 


-146 


250 


-146 


299 


- 94 


450 


190 


-148 


260 


-146 


300 


— 1 58 


460 


200 


-145 


270 


-146 


360 


-158 


470 


210 


-147 


280 


-146 


410 


-252 


480 


220 


-147 


290 


-146 


420 


-196 


490 


230 


-147 


295 


- 96 


430 


-218 


500 



- 13 
-204 



188 
248 

252 



510 


- 7 


580 


- 1 


650 - 26 


520 


-216 


590 


-239 


660 - 8 


530 


- 40 


600 


- 63 


1000 -200 


540 


— 22 


610 


- 7 


10000 -124 


550 


- 35 


620 


-236 


11000 -116 


560 


-244 


630 


- 31 


12000 -117 


570 


- 10 


640 


- 4 


TOTAL: 8568 




Este es un interesante programa de gestión de fichas, cuyo menú te permite su 
creación, búsqueda, borrado, corregido y lleva un índice y un archivo de datos. 

Su capacidad es para treinta fichas, las cuales pueden ser ampliadas y 
adecuadas de acuerdo a las necesidades de cada usuario. En las fichas, los datos 
a incluir son el numero de factura, el importe, etc. El acceso y 

son posibles en cualquier mo: 




«« LORO * 



• Par a 



MSX 



EXTRA ■ - - 



10 CLS: COLOR 1,2,8: SCREEN 1 : VP0KE8 1 9 
6,7:KEY OFF 

20 LOCATE 6,4:PRINT " 



i I 



M 




I 



II 



fffffííí 



40 LOCATE 6,6:PRINT M 
•i 




50 LOCATE 5,10:PRINT "LC] Carlos 01 
i ver . " 

60 LOCATE 9, 17:PRINT"M A R Z 0" 
70 LOCATE 10,19:PRINT" 1986" 
80 FOR 1=0 TO2400:NEXT I 

90 SCREEN 0:DEFINTA~Y:NAXFILES=2 
100 CLEAR2500 s OREN "GRP: "AS#L 

110 CLS:DIM A* (30, 5), B* (30,5) , C C30 
,5),V*(30> 

120 ON ERROR GOTO 1780 
130 CLS: SCREEN0: COLOR 15,4 
140 LOCATE 7,0:PRINT "0 P C I 0 N E 

Sil 





150 
160 LOCATE 
170 LOCATE 



5,2:PRINT "1- CREACION" 

5,5:PRINT "2- BUSQUEDA" 

5,8:PRINT "3- INDICE" 

180 LOCATE 5, 1 1 : PRINT"4- EiQRRAR - COR 
REO I R " 

190 LOCATE 5,14:PRINT "5- ARCHIVO D 
E DATOS" 

200 LOCATE 5,17:PRINT "6- TERMINAR " 
210 LOCATE 7,21:PRINT"<Dame tu opci 
ón > " ; : BEEP : Í50SUB 250 

220 K$=INKEY*: IFKf : : " " THEN 260 

230 LOCATE 8,21: PR I NT3PC (14) ; : GOSUB 
250 

240 GOTO 210 

250 FOR Z=1TO300:NEXT:RETURN 
260 IF K«<"1" OR l<$>"6" THEN 210 
270 ON VAL ( K* ) GOTO320 , 560 , 880 , 1 050 
,1870,280 

280 SCREEN0: KEYON: COLOR 15, 4, 4: CLEA 
R200:NEW:END 

290 " 

300 " Crear -fich 
310 ' 




► I m 



0 



N-?" ; :R*=INPUT*<1) 

350 IF R*-"S" QR R*="s"THEN ELSE 130 
360 M=M+ 1 : N=0 : P=P+ 1 : Y =Y+ 1 : Y-M 

CLS t PRINT "FICHA N°~";Y 
380 PRINT STRING*(36,45) 
390 INPUT "NOMBRE FICHA-" ; V* (Y) 
400 IF LEN<V*(Y) ->>19 THEN 390 
410 N=N+1 

420 INPUT "FECHA-"; A*(M,N> 
430 IF LEN(A*(M,N) ) >5 THEN 420 
440 INPUT " N . FACTURA- " ; B* ( M , N ) 
450 IF LEN(B*<M,N) ) >9 THEN 440 
460 INPUT "PTAS. -";C(M,N) 

470 IF LEN(STR*(C(M,N) ) ) >8 THEN 460 
480 IF N=5 THEN CLS: PRINT "FICHA CO 
MPLETA. "Pulsa ~S- para seguir." E 
LSE 500 

490 IF INKEY*="S" OR INKEY*="s" THE 
N 340 ELSE 490 

500 INPUT "¿Otro asiento -S/N-";R* 
510 IF R*="S" OR R*="s" THEN N=N+1: 
GOTO 420 

0 GOTO 340 



ir-*-* 



Til ? 




búsqueda 



540 ' 
550 « 

560 CLS: SCREEN1: COLOR 1,7: VPQKE8196 
, 3: VP0KES222, 1 : LOCATE 4,0: PRINT "B 

usauEi a" 

570 PRINT STRING* (29,247) 

580 LOCATE 0,3: PRINT "Elige el méto 

do de búsqueda. " 

590 LOCATE 4, 6: PRINT "1- Por N£ de 
ficha. " 

600 LOCATE 4, 8: PRINT "2- Por clave. 
"SPRINT 

610 PRINT STRING* (29, 247) 
620 K*=INKEY*:IF K*="l" THEN 640 
630 IF K**"2" THEN 750 ELSE 620 
640 CLS: LOCATE 3, 3: PRINT "Para efec 
tuar una búsqueda debes introducir 
el N2 de ficha." 

650 LOCATE 4, 7: INPUT "Ficha N2-";Y 
660 IF Y: 1 THEN BEEP: GOTO 650 
670 GOSUB 1500 

680 PSET(20, 165) , 10:PRINT#1, "Otra f 
icha: " 

690 PSET ( 30 , 1 78 ) , 1 0 : PR I NT* 1 . " -SELEC 
T-" 

700 PSET (165, 165) , 10:PRINT#1, "MENU: 

": PSET (150, 178) , 10:PRINT#1, "-RETURN 
_•• 

710 
720 



K*=INKEY* 

IF K*=CHR*(24) 



THEN 560 












730 IF K*=CHR*(13) THEN 130 
740 GOTO 710 

750 M=0: CLS: LOCATE 4,0: PRINT "BUSQU 
EDA POR CLAVE" :Z=4 

760 LOCATE 2,2: INPUT "ENTRA LA CLAV 
E";T*:IF LEN(T*)>19 THEN 760 
770 Y=l 

780 IF INSTRd, V*(Y) , T*>=0 AND T*< 
"" THEN 810 

790 LOCATE 2, Z: PRINTY; SPC (4) ; V* ( Y) : 
Z=Z+1: Y=Y+l:GOTO 780 
800 GOTO 670 

810 IF Y<P THEN Y=Y+l:GOTO 780 
820 IF Z=4 THEN 840 

830 LOCATE 2, 24: INPUT"Di me el N2 de 

ficha: ": Y: GOTO 660 
840 CLS : SCREEN2 : BEEP : PSET ( 1 00 , 1 00 ) : 
PRINT#l,"NO EXISTE": GOTO 680 
850 ' 

860 ' Indice 
870 • 

880 CLS 1 COLOR 1,7 -.LOCATE 9,0: PRINT" 
INDICE" 

890 LOCATE 3, 5: PRINT "Si -parece - 
V - al final pulsa - RETURN - y 
aparecerán las demás fichas." 
900 L0CATE3. 10: PRINT"Pul sa una tecl 
a. ";: BEEP: GOSUB 250 
<?10 IF INKEYSO"" THEN 940 
920 L0CATE3, 10: PRINT SPC (16) j: GOSUB 
250 

930 GOTO 900 
940 CLS: X*2 • 
950 FOR M=l TO PsBEEP 
960 LOCATE 2, X: PRINT M , Vt> ( M ) 
970 IF M>=10 THEN LOCATE 2, 20: PRINT 
" V" : LOCATE 6. 22: PRINT "- RETURN -" 
980 IF X>19 THEN IF INKEY*=CHR* ( 13) 

THEN CLS: X '=2: GOTO 960 ELSE 980 
990 X=X+2 
1000 NEXT M 

1010 LOCATE 2, 22: PRINT "Pulsa una 
tecla"; : X*- INPUT* (1) : X=X+1 : GOTO 130 
1 020 

1030 corregir 
1 040 

1050 CLS: COLOR 1,4: LOCATE 6,0: PRINT 

"CORRECCION" 
1060 LOCATE 2, 3: PRINT "Para corregí 
r o borrar una ficha debes darm 

e su N2 . " 

1070 LOCATE 2, 8: INPUT "CORREGIR O B 
ORRAR (C/B)-";BO* 

1080 IF BO*="B" OR BO*~ "b " THEN CLS: 















J 



- la 
% - 

7 



LOCATE 10, 7: INPUT"N£ DE FICHA" ; M EL 

SE 1120 

1090 PLAY"cl" 

1 100 F0RN=1T05: V$ (M) =" " : A$ (M, N) =" " : 
B*(M,N)=" ":C(M,N)=0:NEXT 

1110 LOCATE 10, 12: PR I NT " F I CHA " ; M ; " B 
ORRADA" : FORZ=1TO1000: NEXT: GOTO 130 
1120 CLS:LOCATE 2,7:INPUT "Corregir 

la ficha N2-";Y 
1130 CLS:GOSLIB 1500: N=l 
1140 LINE (10, 160) -(250, 192) , 10, BF 
1150 PSET (20, 162) , 7:PRINT#1, "NOMBRE 




1180 



1160 E*=INKEY*:IF E*="" THEN 1 
1170 IF E*=CHR*(13) THEN 1200 

IF E*=CHR*(8) THEN LINE(72,160 
>-(250, 170) ,7,BF: V*= H,, :GOTO 1150 
1190 V*=V*+E*:PRINT#1,E*; : GOTO 1160 
1200 IF LEN(V*> >19 THEN V*="":GOTO 
1140 

1210 V*(M)=V*:V*="" 

1 220 PSET ( 20 , 1 76 ) . 7 : PR I NT# 1 , " FECHA : 
■i . 

1230 E*=INKEY*: IF Ef="" THEN 1230 
1240 IF E*=CHR*(13) THEN 1270 

1250 IF E*=CHR<$(8) THEN LINE(64,176 

) - ( 250 , 1 90 ) , 1 0 , BF : V*= GOTO 1 220 

1 260 V*=V*+E* : PR I NT# 1 . E* ; : GOTO 1 230 
1270 IFLEN(V*)>5 THEN LINE < 10. 176) - 
(250, 192) , 10, BF: V*="":GOTO 1220 
1280 A* (M„ N) =V$: V*="" 

L I NE ( 1 0 , 1 60 ) - < 250 , 1 92 ) , 1 0 , BF 
PSET ( 20 , 1 62 ) , 7 : PR I NT# 1 , " N2 FAC 



1 290 
1 300 



II 



1 330 



1310 E$~INI<EY$: ÍF E$^" M THEN 1310 
1320 IF E**CHR*<13) THEN 1350 

IF E*^CHR*(8> THEN LIME (80, 160 
> - ( 250 , 1 70 ) , 1 0 , BF : V»« 11 41 : GOTO 1 300 
1340 V*=V*-i-E*: PRINTttl , E*; : GOTO 1310 
1350 IFLEN(V$> >?THEN V$~ " " : GOTO 129 
0 

1360 B* (M. N) =V*: V«*» ,,,M 

1370 PSET (20, 176) , 7:PRINT#1, 11 PTAS . : 



1 380 
1390 

1 400 



E$=INKEY$: IF E*= ,,M THEN 1380 
IF E**CHR*(13) THEN 1420 
IF E$^CHR$(8) THEN LINE(64,176 
) - (250, 190) , 10, BF: " : GOTO 1370 

1410 v*= v* -he * : PR I Nt#I , E* ; s GOTO 1380 

1420 IF LEN (V* ) >7 THEN V*= M " : LINE (6 
4, 176) -(240, 190) , 10, BF: GOTO 1370 
1 430 C ( M p N ) = VAL ( V$ ) : V*= M " 
1440 LINE (10, 160) - (250, 1^2) , 10, BF" 
1450 PSET (20, 162) ,7:PRINT#1, "¿OTRO 
ASIENTO?- (S/N) " 




1460 E*= INKEY* 

1470 IF E*="n" OR E*»"N" THEN 130 
1480 IF E<M"S" OR E*« M «" THEN N=N+1 
: IF N: 5 THEN 130 ELSE 1220 
1490 GOTO 1460 

1500 ' ** CALCULO DE TOTALES ** 
1510 S=0:M=Y 
1520 FOR N%1 TO 5 
1530 S=S+C(M,N) 
1540 NEXT N 

1550 » ** FORMACION PANTALLA ** 
1560 SCREEN2: COLOR 1,3:CLS 
1570 LINE (0,0) -(255, 12) , 15, BF 
1580 LINE (20,0)-<50, 12) , 1,B:LINE ( 
70,0) -(235, 12) . 1,B 

1590 PSET (20,2) , 1:PRIIMT#1, Y: PSET <S 
0,2) , 15:PRINT#1. V*(Y) 

1600 LINE (20, 13) -(235, 135) , 7, BF: LIN 
E (20, 13) -(235, 17) ,4, BF: LINE (20, 13)- 
(75. 135) , 4, B: LINE (75, 13>-<160, 135) , 
4, B: LIME (160, 13) -(235, 135) ,4,B 
1610 LINE(25, 18)-<231,30) , 14, B 

1620 PSET (32, 21) ,4:PRINT#1. "FECHA" 
1630 PSET (75, 21) ,4:PRINT#1. " FACTU 
RA" 

1640 PSET (160, 21) ,4:PRINT#1, " PTAS 

M 

■ 

1650 LINE (160, 140) -(235, 155) , 15. BF 

1 660 PSET ( 1 00 , 14 5) : PR I NT# 1 . " TOT AL= " 

1665 IF3GN (S) =-iTHENCOLOR 8 

1670 PSET (162, 145) , 15: PRINT#1 , USING 

"•###*###" :S: COLOR i 

1 680 L I NE (10,1 60 ) - ( 250 , 1 92 ) , 1 0 , BF 

1690 LIME (2-, 175) -(100, 187) , 1,B:LIN 

E (148, 175)- (215, 137) , 1,6 

1700 X=40 

1710 |N|»1 

1720 PSET (32, X) , 7: PRINTttl . A* (M, N) :P 
SET ( 90 , X ) , 7 : PR I NT# 1 , B* ( M , M ) : PSET ( 1 7 
0 , X ) , 7 : PR I NT# 1 , US I NG " ####### " ; C (M, M 

1 730 N-N+ 1 : BEEP 
X=X+20:BEEP 

IF N=6 THEN RETURN 
1760 GOTO 1720 
1770 ' 

1780 ' * RUTINA DE ERRORES * 
1790 ' 

1800 IF ERR=9 THEN 1840 

IF ERR-14 OR ERR«7 THEN CLS:PR 
INT "LA MEMORIA ESTA COMPLETA, PARA 
SEGUIR DEBES GRABAR LOS DATOS EN UN 

A CINTA , PULSA UNA TECLA 

"; : INPUT A 

1820 RESUME 1870 
1830 » 



1 740 
1 750 






1840 IF ERR=9 THEN CLS:PRINT "EL N£ 
DE FICHA ES DEMASIADO ELEVADO, 

EL MAXIMO ES 30. " . » Pul sa -S-" 
1850 IF INKEY*="S" OR INKEY*="s " TH 

EN RESUME 130 ELSE 1850 
1860 ' 

1870 » ARCHIVO DE DATOS 

1380 » 

1890 CLS: COLOR 1 , 9: SCREEN1 : VP0KE319 
6, 8: LOCATE 6,0:PRINT "ARCHIVO 
": LOCATE 1,5:PRINT "¿Que quieres?": 
LOCATE 4, 7: PRINT "1- Guardar fichas 
,": LOCATE 4. 9: PRINT"2- Cargar dato 
s ,":LOCATE 4,11:PRINT "S- Volver a 
1 MENU" 

1900 K*=INKEY* 
1910 IF K*="2" THEN 2090 
1920 IF K*="S" OR K*="s" 
1930 IF K*="l" THEN 1950 
1940 GOTO 1900 

1950 CLS: LOCATE 0,5: PRINT " PON EL C 
ASETTE EN -RECORD- Y PULSA 
-RETURN- " 

1960 IF INKEY*=CHR*(13) THEN 1970 E 
LSE 1960 

1970 OREN "CAS: LORO "FOR OUTPUT AS # 



LOCATE 5, 10:PRINT"ARCHIVO ABIE 



THEN 130 



1 980 
RTO " 
1990 

2000 
20 1 0 



FOR 1=1 
PRINT # 
PRINT # 




TO PíFQR N=l TO 5 
, V* ( I ) 

,A*(I,N) : PRINT #2,B*(I 



II 




,N) i PRINT #2,C<I,N) 
2020 NEXT N, I 
2030 CLOSE #2 

2040 CLS: LOCATE 5, 5: PRINT "ARCHIVO 
TERMINADO" , "Pulsa -B- para borrar. 
"-S- para volver al MENU" 
K*<*XNKEY* 
IF K*«"S" THEN 130 
2070 IF K*="B" THEN 100 
2080 GOTO 2050 
2090 ' 

2100 ' * CARGA DE DATOS * 

2110 CLS: LOCATE 0,5: PRINT " PON EL 

CASETTE EN -PLAY- Y PULSA 

-RETURN- " 

2120 IF INKEY$=CHR*<13) THEN 2130 E 
LSE 2120 

2130 OPEN"CAS:LORO" FOR INPUT AS #2 
2140 LOCATE 2 , 10: PR I NT " ENCONTRADO A 
RCHIVO" 
2150 P=0 

2160 FOR 1=1 TO 30: FOR N=1T0 5 
2170 IF EOF < 2 > «- } THEN 2220 
2180 INPUT tt2,V*(I) 

2190 INPUT #2, A* (I, N) : INPUT #2,B*(I 
, N) : INPUT #2,C(I,N) 
2200 P=I 

2210 NEXT N, I 
2220 CLOSE #2 

2230 CLS: LOCATE 0,5: PRINT "LOS DATO 
3 ESTAN EN LA MEMORIA",," Pulsa un 
a tecla. "si X*=INPUT*( 1) : GOTO 130 



TEST DE LISTADO 




1 


- 58 


150 


—222 


340 


-164 


530 


- 58 


720 




16 


9 1 0 


- 48 


1 100 


-108 


2 


- 58 


160 


-248 


350 


-223 


540 


- 58 


730 




85 


920 


- 45 


1110 


-171 


3 


- 58 


170 


- 78 


360 


-141 


550 


- 58 


740 




95 


930 


- 30 


1 1 20 


-198 


4 


- 58 


1 80 


-246 


370 


-191 


560 


-162 


750 




231 


940 


- 51 


1 130 


—222 


5 


- 58 


1 90 


-184 


380 


- 96 


570 


- 35 


760 




99 


950 


-243 


1 140 


- 52 


10 


-146 


200 


- 14 


390 


-115 


580 


- 19 


770 




90 


960 


-203 


1 150 


-255 


20 


- 81 


210 


-232 


400 


- 16 


590 


-181 


780 




108 


970 


- 96 


1 160 


- 25 


30 


- 52 


220 


-141 


4 1 0 


-142 


600 


-213 


790 




234 


980 


- 1 50 


1 170 


-129 


40 


-165 


230 


- 59 


420 


- 5 


6 1 0 


- 35 


800 




55 


990 


-163 


1 1 80 


- 81 


50 


- 64 


240 


-105 


430 


-123 


620 


- 76 


810 




1 30 


1000 


-208 


1190 


-106 


60 


-214 


250 




440 


- 49 


630 


-142 


820 




28 


1 0 1 0 


-184 


1 200 


-199 


70 




260 




450 


-148 


640 


-177 


830 




127 


1 020 


— 5Q 


1210 


-104 




- 47 


270 


- 19 


460 


-242 


650 


-197 


840 




100 


1030 


- 58 


1 220 


-161 


90 


- 8 


280 


- 52 


470 


-103 


660 


-221 


850 




58 


1040 


- 58 


1230 


- 95 


1 00 


-149 


290 


- 58 


480 


-165 


670 


-124 


860 




58 


1050 


- 69 


1 240 


-199 


1 10 


- 41 


300 


- 58 


490 


-151 


680 


-150 


870 




58 


1 060 


-104 


1250 


- 1 80 


120 


-204 


310 


- 58 


500 


-227 


690 


-252 


880 




16 


1070 


-201 


1260 


-176 


130 


- 5 


320 


-191 


510 


-120 


700 


-153 


890 




159 


1 080 


-143 


1 270 


-137 


140 


-156 


330 


—235 


520 


-236 


710 


- 74 


900 




196 


1 090 


-153 


1 280 


-205 




1 UVÍÍ) 


- 1 8v 




~l:-6 


1 880 


1 6 W íí) 


- 86 


1740 


-173 


1890 


1 6 1 í¿) 


- 1 90 


1750 


y i 

~ 71 


1 900 




~ 1 -i2 


1760 


~ 85 


1910 


1 O & > 


~116 


1770 


- 58 


1920 


1640 


- 41 


1780 


- 58 


1 9 • j. 0 


1650 


— 1 35 


1790 


- 58 


1 940 


1 660 


-131 


1 ^3 í—^ 


-149 


1 950 


1665 


- 85 


1810 


-179 


1960 


1 670 


-221 


1 820 


- 10 


1970 


1 680 


- 52 


1 830 


- 58 


1 980 


1 690 


-254 


1840 


- 90 


1 990 


1700 


-126 


1850 


-151 


2000 


1710 


- 79 


1860 


- 58 


20 1 0 


1 720 


-104 


1870 


- 58 


2020 








• 





- 58 
-144 

- 74 
-121 
-246 




- 10 

- 94 
-161 
-220 

- 84 
-239 

- 7 
-151 

- 70 



2030 

2040 

2050 
2060 

2070 

2080 
2090 
2 1 00 
2110 
2120 
2 1 30 
2140 
2150 
2160 
2170 




-147 
- 74 
-234 

-187 
-161 



2 1 80 
2190 
2200 
22 1 0 

2220 
2230 



-251 
-115 
-136 
- 70 
-234 
-124 





- 18 

- 56 

- 80 
-204 

- 40 



TOTAL: 

28219 



ENSER 



POR JOSE 

I SANCHEZ MORALES 

i II U II II 

un listado desarrollado en Bas 
muy bien programado en cuanto a su 
estructura, aunque muy simple su 
argumento. Sus dificultades aumentan 
medida que se superan distintos || 
puntajes. 




E R 
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ti 
ii 

ti 
ii 
Si 

ii 

ti 
ii 
ii 



MSX EXTRA 



JOSE SANCHEZ MORALES 



VARIABLES INICIALES 





CLEAR400, 55296 ! : DEFINTA-Z 
N=120:M=140: Z=13: W=14: S=4: H=8 




COLOR 15,1, .%» 
grp: "AS#1 
U=U+10 



:SCREEN2,2:0 





230 PRESET (40, U) , 15:C0L0R 15:PRINT 
#1 , "JOSE SANCHEZ MORALES" 
240 PRESET (40, U) , 1 : COLORI : PRINTttl , 
"JOSE SANCHEZ MORALES " : PL AY " 1 64m 1 0s 
8o7cbaf " 

250 IF LK 50 THEN220 

260 PRESET (40,50) , 15: COLOR 15:PRIN 
T#1,"J03E SANCHEZ MORALES" 
270 PRESET (39,50) , 15: C0L0R8: PRINT# 
1,"J0SE SANCHEZ MORALES" 
280 PRESET ( 38 , 50 ) , 1 5 : COLOR 1 5 : PR I NT 
#1,"J0SE SANCHEZ MORALES " : PLA Y " m650 
1 15o5ccdeccdeaaf gbgf " 

290 FORI=1TO2000: NEXTI : PRESET (75, 10 
0 ) : COLOR 1 5 : PR I NT# 1 , " PRESENTA " : PLA 
Y " m5000s 1 06-f i ge " : FOR I = 1 TO 1 500 : NEXT I 
300 CLS:SCREEN3 
310 F0RI=1T015 

320 PRESET (40, 40) : COLOR I:PRINT#1," 

ROBY DEFENSER" : PLAY"F" 

330 PRESET (42, 44) : COLOR I-1:PRINT#1 
, " ROBY DEFENSER" 
340 NE X T I : PL A Y " s8 1 1 0o4m 1 5000 1 CAB02C 














\ 







AB03CAB04CAB05CAB06CAB07CAB08CAB" 
350 FOR 1=1 TO3000 : NEXT 1 : SCREEN0: COLO 
R 15,4,4:SCREEN 2,2: COLOR 15,4, 1 

360 

370 '■ SPRITES 
380 

390 FOR I = 1 TO 1 6 : RE ADA : A*= A*+CHR* (A) : 
NEXTI: SPRITE* (0)=A* 

400 F0RI=1T016:READB:B*=B*+CHR*(B) : 
NEXT I : SPRITE* ( 1 ) =B* 

410 F0RI=1T016:READC:C*=C*+CHR*(C> : 
NEXT I : SPRITE* (3) =C* 

420 FOR 1 = 1 T08 : READD : D*=D*+CHR* ( D ) : N 
EXTI: SPRITE* ( 2) =D* 

430 FOR I * 1 T08 : REABF : F*=F*+CHR* ( F ) : N 
EXTI:SPRITE*(5)=F* 

440 FOR I = 1 T032 : RE ADE : E*=E*+CHR* ( E ) 
: NEXT I : 8PR I TE* ( 4 ) =E* 

450 F0RI=1T032:READK:K*=K*+CHR*(K) : 
NEXTI : SPRITE* (6) =K* 
460 FOR I = 1 T032 : RE ADH : H*=H*+CHR* ( H ) 
: NEX T I : SPR I TE* ( 7 ) =H* 

470 FOR I = 1 T032 : READ JO : JO*= JO*+CHR* 
(JO) : NEXTI: SPRITE* ( 10) =JO* 
480 FOR I = 1 T032 : READZ : Z *= Z*+CHR* ( Z ) 
: NEXT I : SPR I TE* (13) =Z* 

490 SPRITE* (?) «SPRITE* (7) 
500 SPR I TE* ( 1 2 ) =SPR I TE* (10) 
510 SPRITE* ( 15) =SPRITE*( 13) 

9 



520 
530 
54.0 

550 DATA112,64, 112, 112, 160,240,247, 

254 , 240 , 240 , 96 , 96 , 96 , 96 , 96 , 1 20 

560 DATA112,64, 1 12, 1 12, 160, 240, 247, 

254,240,240,80,32,80, 144, 144,238 

570 DATA112,64, 112, 112, 160,240,254, 

252,240,240,48,40,36, 196, 132,231 

580 BATA0 , 0 , 0 , 0 ,0,0,7,0 

590 DATA112,64, 112, 112, 160,240,247, 

254 



9 
9 




DATAS 




600 DATA0,0,0,0,0,2, 12,54, 126,247, 1 
43,48,3,2, 12, 1,0,0,4,8,25,62, 124, 12 
4, 254, 255, 255, 238, 68, 68, 68, 152 
610 DATA0,0,0,0,0,2, 12,54, 126,227, 1 
31,4,9,49, 1,6,0,0,4,8,25,62, 124, 124 
, 254, 255, 255, 238, 68, 34, 17, 102 
620 DATA3, 1,1, 16,24,28,245,255, 11,3 
7,8,0, 15, 17,3,4, 128, 192, 240, 248, 252 
,252,254, 199,225,241,240, 104.68,5,5 

630 DATA0, 0, 1,0,0,24,36,255,60,24,0 
, 0 , 0 , 0 , 0 , 0 , 24 , 252 , 252 , 252 ,24,24, 60 , 
254,60,24, 12,6,63, 127,63,6 
640 DATA0,0,0, 1,2,4,8,63,255,63,3, 1 









I 



„ 0,0, 0,0, 0,3, 7, 254, 92, 153, 179,255,2 
52, 255, 243, 241 , 248, 62, 14,0 

650 

660 VARIABLES 

670 ' 

680 X= 1 0 : Y= 1 00 : V=3 : A=0 : P=0 : L=25 : 0=9 

: H=8 : A2=0 : J A=0 : B=4 : S=4 

690 N=120:M=140: Z=13: W=14 

700 PUTSPR I TE 1 2 , (1 00 , 1 ) , 1 5 , 5 

710 PUTSPRITE13, (N. 1) , 15,5 

720 PUTSPRITE14, (M, 1) , 15,5 

730 IF P1=0 THENGOSUB i 570 

740 R=250 : T= I NT ( RND ( 1 ) * 1 82 ) + 1 

9 



750 





9 



MOVIMIENTO ROBY 




800 




770 



780 GOSUB 1260: GOSUB 1360 
790 A=STICK(0) 

IF A=0THENPUTSPR I TE0 , (X.Y) , 11,0 
IF A=l THENY=Y-H: PUT SPRITE0,(X 
,Y) ,11,3 

820 IF A=4 THENY=Y+H: X=X+H: PUT SPRI 
TE 0 , (X,Y) , 11,3:FORI = 1TO80:NEXTI:PUT 
SPRITE0, (X, Y) , 11, 1 

830 IF A=3 THENX=X+H:PUT SPRITE0,(X 
, Y) , 11,3: FORI=1TO80: NEXTI : PUTSPR I TE 
0, (X,Y) ,11,1 

840 IF A=7 THENX=X-H:PUT SPRITE0, (X 

,Y) , 11,3:FORI=1TO80:NEXTI:PUTSPRITE 
0, (X, Y) ,11,1 

850 IF A=5 THEN Y=Y+H: PUTSPR ITE0, (X 
, Y), 11,1 

860 IF A=2THENX=X+H: Y=Y-H: PUTSPR I TE 

0, (X,Y) , 11, 1 : FOR I=1TO80: NEXTI : PUTSP 

RITE0, (X, Y) , 11,3 

870 IF Y 170 THEN Y=170 

880 IF Y<20 THEN Y=20 

900 '■ VAR I ABLtí£ ENEMIGAS 




950 IFT<20 THEN T=T+20: IF T>1 



910 

920 R=R-0 

930 IF P ■ = 1 0 THENB=B+1 

940 IF B>=100THEN GOSUB 1420 

0 

T=T-20 
960 IFP>300 THENS=10 
970 IFPM00 THENS^13 
980 PUTSPR I TE5 , ( R , T ) , 1 2 , S 
990 F0RI=1T025: NEXTI 

PUTSPR I TES , ( R , T ) , 12,S+2 
IFSTRIG(0)=-1 THENGOSUB 1060 
SPRITEON 

ÜNSPRITE GOSUB 1140 
T=T-INT (RND ( 1 ) *2) 
GOTO 790 




1000 
1 0 1 0 
1020 
1 030 
1040 

1 050 






í 



1060 PUTSPR I TE0 , (X, Y) , 1 1 , 3: Z=X: G=Y: 
L=L-1 : GOSUB1360 
070 IF L<0 THEN GOTO 1420 
080 S0UND6 , 30 : S0UND7 , 223 : SOUND 1 0 , 

6: SOUND1 1 ,8: SOUND12, 13: SOUND1 1 , 8: S 
OUND13.1 
090 Z=Z+5 

100 PUTSPR ITE4, ( Z , G) , 15,2 
110 IF Z<252 THEN 1090 
120 PUTSPR I TE4 , < Z , G ) ,8,2 
130 RETURN 

140 IFR>X+25 THEN ELSE GOTO 1180 
150 SPRITEOFF: PUTSPR ITE4, (0,0), 1,2 
PUTSPR I TES « ( R , T ) , 1 , S : GOSUB1220 
160 IF (R<=X ) AND (f =Y> THENGOTO 1420 
170 RETURN 
180 V=V-1 

190 IF V=l THEN PUTSPRITE14, (160, 1 
0) , 1,5:G0SUB 1810 
200 IFV=2 THEN PUTSPRITE13, ( 100, 10 
,1,5: GOSUB1780 
210 IF V< 1 THENGOTO 1420 

0 SOUND10, 0: S0UND8, 0: S0UND6, 30: S 
0UND7 , 247 : S0UND8 ,16: SOUND 11,1 00 : SOU 
ND 12, 100: SOUND 13, 1: GOTO 740 
230 * 

240 '■ SCORE 



250 





,5) 
270 
280 
290 
300 
310 
320 




260 LINE(160, l)-(252, 15) , 15,B:PSET 
165,5) , 1:PRINT#1, "SCORE" : PSET (214, 
) , 1: COLOR 1:PRINT#1, " : PSET ( 2 1 

COLOR 15:PRINT#1,P : P=P+5 
IF P=>50 AND P<250THEN S=7 
IF P=>85 THEN 0=12 
IF P=>90 THEN 0=16: H=9 

IF P=>100ANDA2=0THEN L=25:A2=1 
IF P=>150 THEN 0=21 : H=16 
IF P=>200 ANDJA=0THEN G0SUB187 
0:L=30:H=12:O=20 :S=10 

30 IF P=>500 ANDA3=0THEN G0SUB158 
0: L=60: H=14: 0=22 :S=12:A3=1 
340 IF P=>3000 THEN GOTO2030 
RETURN 



350 
360 
370 
380 

390 LINE(3, l)-(95, 15) , 15,B:PSET(10 
,5) , 1:PRINT#1, "LASER": PSET (55, 5) , 1: 
COLOR 1:PRINT#1, " : PSET (55,5) : C 

OLOR 15:PRINT#1,L 
1400 RETURN 
1410 GOTO 740 




LASER 



■ 




1420 
1430 
1440 




TRAGICO FINAL 




í 



1 450 S0UND6 , 30 : SGUND7 , 225 : SOUND 10,1 
6: SÜUND1 1 , 8: SÜUND12, 13: S0UND1 1,8: SO 
UND13, 1:S0UND8, 15:S0UND9, 1:F0RI=1T0 
700: NEXTI : S0UND8, 0: S0UND9, 0 
1 460 SOUND0 , 0 : SOUND 1,0: S0UND2 , 0 : SOU 
ND3 , 0 : S0UND4 , 0 : S0UND5 , 0 : S0UND6 , 0 : SO 
UND7 , 0 : SOUND 1 0 , 0 : SOUND 11,0: SOUND 1 2 , 
0:SOUND8, 15: S0UND9, 8: FOR* I = 1T0255:S 
OUND0, I : NEXTI : S0UND8, 0: S0UND9, 0 
1470 L I NE ( 0 , 60 ) - ( 255 , 90 ) , 6 , BF : PRESE 
T <70 5 70) : COLOR 4: PRINT#1 , "FIN DEL J 
UEGO " : FOR I = 1 TO 1 000 : NEX T I 
1 480 S0UND8 ,15: S0UND9 „ 9 : SOUND 10,9: 
PLAY " v 1 5t 1 20 í 4s8m850o4deo5edo4def o5 
dco4dccolcabc M 

1 490 PLAY 11 v 1 5t 1 20 1 2s5m6500o4d eoSedo 

4de-f o5dco4dc col cccc M 

1500 LINE(95, 118) -(190, 130) ,5,BF 

1510 PRESET ( 1 00 , 120) , 5 : COLOR 9:PRIN 

T#l, "¿OTRA? S/N n 

1520 Q$=INKEY* 

1530 IF Q$= " 11 THEN 1520 

1540 IF Q*="N M OR Q*= M n M THEN SCREEN0 

: COLOR 15,4,4:END 




IF Q*= n S M OR Q*= M s M THENCLS.-SP 
RITE OFF:GOTO 680 
1560 GOTO 1520 




pantalla 1 





1570 
1 580 
1 590 

1 600 L I NE ( 0 , 0 ) - ( 255 , 20 ) , 1 , BF 
1610 Z*="BM0, 100S7C9U1R3E4U4E3R4E3R 
4D3F3D4D2R3E4R3E4F3U6F4U 1 0R4E3R4E3D 
2U2HR4E3F5D4R3E4R3E4U3D 1 2EE3R2D 1 2R4 
E3U2E4D2U 1 E4R3E4R3D2E4R3U2E3R4F34 " 
1620 DRAWZ*:LINE(0, 190) -(255, 100) ,9 



,BF: PAINT ( 100, 90) , 9 
1630 X*="BM80, 192S7C4u50el4dl00" 
1640 DRAWX*: PAINT (90. 190) .4:LINE(10 
0,80) -(175, 190) , 13, BF 

1650 DRAWBM30, 192S7C14ul3e8d20" : PA 
INT (35, 190) , 14 

1660 LINE(44, 156) -(90, 190) , 15,BF:PA 
INT (35, 190) , 14 
1670 U=80 

1680 PRESET ( 103, U) , 13: COLOR 7: PRIN 

T#l p " rrrrrrrrr" 
1690 U=U+8 



1700 IF U<190 THENGOTO 1680 

1710 DRAW"bml30, 80u5r3d5h2e2h2r lu20 
r ld20" 

1720 CIRCLE(150,60) , 15, 15, , ,2: PAINT 
(150,60) , 15 

1730 LINE(150,60)-(180,50) . 14 
1740 RETURN 





kt 



r 



j 



i 




PANTALLA 2 





1750 
1 760 
1770 



1)8,5 

1790' IF NM00 GOTO 1780 
1800 RETURN 

1810 M=M-1:BEEP:PUTSPRITE12, (M, 1) ,8 

1820 IF M>100 GOTO 1810 
1830 RETURN 
1840 ' 
1850 ' 
1 8¿>0 ? 

1870 JA=2: S=10: CLS: SCREEN0: COLOR 15 
,1.1: SCREEN2 : COLOR 15,1,1: GOSUB 1 230 
: GOSUB 1370: FORT= 1 TO 1 00 : X = I NT ( RND ( 1 > 
♦255) :Y=INT(RND(1) #190) : PSET ( X , Y ) , 1 
1:NEXT ' 
1880 CIRCLE (200, 190) ,80,5, , , 1:PAINT 

(200, 190) ,5 

1890 CIRCLE(180,40) , 10, 10, , , l-.PAINT 
( 180,40) , 10 

1900 CIRCLE(160,40) ,2,8, , , l-.PAINTU 
60 , 40 ) , 8 

1910 CIRCLE (230, 50) ,4,6, , , 1:PAINT(2 
30,50) ,6 

1920 CIRCLE(200, 190) ,75,4, , , 1:PAINT 

(200, 190) ,4 

1 930 C I RCLE ( 20 , 40 ) , 20 , 1 5 , , , 1 : PA I NT ( 







20,40) , 15 
1940 CIRCLE (20, 42) , 15, 11, , , 1:PAINT( 
20,42) , 11 

1950 CIRCLE (23, 46) ,2, 1, , , 1:PAINT(23 

p46/ y I 

1960 CIRCLE ( 18, 30) ,1,1,,, 1:PAINT(18 
, 30) , 1 

1970 CIRCLE (29, 42) ,3, 1, , , 1:PAINT(29 
,42) , 1 

1980 DRAW'bm 1 45, 1 42c9f 5g5d3f 5d21 h5 
lhlhlhlhl hu2eueueueueueueue2 " : PA I NT 
( 145, 148) ,9 

1990 DRAW'bm 244 , 1 26c9g2h2g2d3g41 2d 
4r4u2e2u2r2d41 2d41 4d21 21 u21 2d41 2d41 

3dl-f 3d318d4grd2r2f 2e2r2u2r2u2r2u2r 2 
u2r2f 4g2r2e2u2r21h4e3-f 612d2r2f 2e2u2 
0uhuhuhuhuhuhuhuhuhuhuhuh " 
2000 PA I NT ( 242 , 1 38 ) , 9 
2010 DPAW"cl5bml90, 120heherererer-f r 
i ri í d-fdf d-fd-f dgl4gl 1 hl heueul 3u2" : PA 
INT(199, 122) , 15 
2020 X=10:Y=100: RETURN 
2030 SCREEN 1 : LOCATE 1,6: COLOR 1 5 , 6 : P 
RINT: PRINT" ¡ ¡ ¡ENHORABUENA! ! ! " 

2040 PRINT: PRINT: PRINT: PRINT" H 
AS BATIDO EL RECORD DE LOS DEFENSO 
RES DE LA TIERRA, POR TAN GRANDE HA 
ZAfíA SE TE OTORGA EL HONOR DE FIGUR- 
AR EN EL LIBRO DE LOS HEROES. " 












TEST DE LISTADO 



10 




58 


220 


-163 


430 


-202 


640 




63 


•850 


- 40 


1060 


-254 


1 270 


• 


108 


20 




58 


230 


—235 


440 


-186 


650 




58 


-860 


- 33 


1070 


-218 


1 280 




79 


30 




58 


240 


-147 


450 


-218 


660 




58 


870 


-102 


1080 


- 57 


1290 




227 


40 




58 


-L- 0 


-213 


460 


-204 


670 




58 


880 


- 60 


1 090 


-170 


1 300 




127 


50 




58 


260 


-215 


• 470 


- 98 


680 




41 


890 


- 58 


1100 


- 98 


1 3 1 0 




41 


60 




58 


270 


-209 


480 


- 42 


690 




17 


900 


- 58 


1110 


- 14 


1 320 




56 


70 




58 


280 


-110 


490 


- 153 


700 




79 


wta 


- 58 


1 120 


- 93 


1330 




1 1 


80 




58 


290 


- 0 


500 


— 155 


710 




43 


920 


-212 


1 130 


-142 


1340 




253 


90 




58 


300 


-178 


510 


-161 


720 




43 


930 


- 37 


1 140 


- 40 


1350 




142 


1 00 




58 


310 


-195 


520 


- 58 


730 




169 


940 


— 35 


1 1 50 


- 54 


1360 




58 


1 1 0 




58 


320 


-107 


530 


- 58 


740 




65 


950 


-159 


1 160 


- 74 


1370 




58 


120 




58 


330 


-240 


540 


- 58 


750 




58 


960 


- 71 


1 1 70 


-142 


1 380 




58 


130 




58 


•»340 


-165 


550 


-141 


760 




58 


970 


-174 


1 180 


-159 


1 390 




44 


140 




58 


•350 


- 22 


560 


-211 


770 




58 


980 


-165 


1 1 90 


- 50 


1 400 




142 


150 




58 


360 


- 58 


570 


-208 


780 




181 


990 


-21 1 


1 200 


-215 


1410 




125 


160 




30 


370 


- 58 


580 


- 63 


790 




51 


1 000 


-169 


1210 


-229 


1 420 




58 


170 




44 


380 


- 58 


590 


- 67 


• 800 




14 


1 0 1 0 


- 31 


1220 


- 4 


1430 




58 


180 




58 


390 


-178 


600 


- 20 


810 




39 


1 020 


- 92 


1 230 


- 58 


1 440 




58 


1 90 




53 


400 


-184 


610 


-217 


820 




34 


1 030 


-111 


1 240 


- 58 


1 450 




90 


200 




58 


410 


-191 


620 


-132 


830 




13 


1 040 


- 78 


• 1250 


- 58 


1460 




31 


210 




19 


420 


-189 


• 630 


- 37 


♦840 




18 


1 050 


-176 


1260 


- 22 


•1470 




29 




p 




■ 



m 




— - — I 











1570 

1580 
1590 
1 600 

«1610 
1620 
1630 
1640 

*1650 



1 660 
1670 
•1680 

1 690 
1700 
1710 
1720 
1 730 
1740 



1750 
1760 
1770 
1780 
1 790 
1800 
1810 
1820 
1830 



- 58 



-142 



1 840 

1 850 
1 860 
1870 
1880 
1890 

1 900 
1910 

1 920 



1930 
1 940 
1 950 
1960 
1970 
1 980 
1990 
2000 
20 1 0 



2020 - 29 
2030 - 2 ■ 
2040 -198 



TOTAL: 
21398 



— 



ESENSAMBLAD 



r AEiENTI 




importancia 




quieren iniciarse en 



este programa 



[utilidad para 
onocimiento del código máquina. Un 
código fundamental para desarrollar programas más completos ' 

qué significa un paso adelante en el tratamiento del ' 



rápidos y 

tí 



aprovec 



us enormes posibilidades. 



progr 





ama na sido desarrollado con una 
máquina de 1 6 K. Gracias a él los 
Incipiantes en el lenguaje máquina 

podrán verificar las instrucciones y 

números que hayan realizado mediant < 
función POKE . Hay que considerar que 

instrucciones escritas en los primeros 8 
bytes quedan anuladas debido al BASIC, de 
modo que las direcciones a consultar, por 
implo en un HB 55P, están entre 58.000 
y 68.836 y la memoria ROM 0-49182. 
ara que funcione el programa tienes que 

ólo la dirección inicial y la final. 

deseen obtener por 
mpresora los resultados a fin de trabajar 
con mayor comodidad, sólo 






















10 » 




)|£ jf(']|C $ % ^ ^ $ .y. f( )f. % ¡| /y .{( )^ )|í A y' 


20 » 


* 


* 


30 ' 


* 


PROGRAMA DESEMBLADGR * 


40 ' 


* 


* 


50 ' 


* 


Rea 1 i t z áf per V - ü - C - # 


60 ' 


* 


* 


70 


* 


Valenti Ocerans Civit * 


80 ' 


* 




0 ' 


•k' m* 4< ic' 4c' 4c 4¿ ^' 4¿ ^ 4c 4c 4c' 4¿* 4¿ v Jc' ¿' A* ^éc 4c * V V ^ *V *A ^ 

^ T t 1 t- T- T- -1* • T • t- 'r- t T • r T» r r- -v t t t ^ T 


1 ' 0 ' 







110 9 Es un programa fet per aquel le 
s 

120 > 
1 30 "~ 
r 

140 

150 



p & r ) n e 5 q u e e s v u 1 q u i n i n i c i a 



quest programa escapa: de 



1 7 0 ' p a s a r d e 1 s n ü m e r o s que t en i m 
180 ? 



i 

200 
210 



230 
240 

2S0 

260 
70 



' en el ordinador a un 1 1 enguat 



9 



? ... 



ge amb el qual es mes fácil 
' I er an ar el 11 en g u at ge 
' maqui na 

amb e 1 1 1 e n g u a t g e m a q u i n a 



2 

280 CLEAR 200,58000! 

90 I NPUT " d i rece i o inici al " 5 RR 
300 I NPUT " d 1 r eec i Q final"; RD 

10 FOR I -RPTGPD 
320 A$ = " " ! GGSUB3?0:-H=0 
330 A*=A*+STR*< I) + " " 
3:10 A*=A*+B3*+" " 

350 IFB=S<HCBTHEN GOSUB2530 : GOTO400 
360 I FB- SíHDDTHEN GOSUB2800: GOTQ400 
370 IFB-&HEDTHEN GGSUB3 1 40 : GOTO400 
380 IFB=?-HFDTHEN : H=3 : GOSUB880 : GOSU 
B2B1.0: GCTÜ400 
390 GOSUB 1060 
400 I FM=0THEKI t PP I NTA* 
410 IFM * 0 THEN : L P R I N T A * 
420 IFM: '0THEM: RETURN 
430 NEXTI:END 
440 A*«A*+STR* ( PEE K < I + 1 ) ) 
450 1=1+1 : RETURN 
460 Y1$=HEX1> (PEEK ( 1 + 2) ) 
470 Y2*=HEX* ( PEEK (1+1) ) 
430 3--L.EN ( Y2f ) : I FS= 1 THENY2** " 0 " +Y2* 
490 I FS < =0THENY2$= " 00 " +Y2* 
500 X=VAL >. " %M " + Y 1 *+Y2<* ) 
5 1 0 I FX< 0TI~IENX=65536 ! + X 
20 X**STR.*<X) 
























S 7 0 

0 




6 1 0 



690 





530 I=a+2:A*=A*+X* 
540 RETURN 
550 I - I » 1 
560 B=PEEK < I ) 

I FB 1 28THENB-B- 256 
B**STR*CB) 
5°0 A*=A*+B* 
RETURN 

' Ar ■ : i u B BC , DE . HL , SP 
620 RESTO RE 680 
62 FOR X = 1 T04 : READQf ,Q1* 
640 0=VAL(Of> 
650 IFM3=Q THENA*=A*+Q1* 
660 NEXTX 
670 RETURN 

DATA 00 , BC , 1 , DE „ 2 , HL , 3 , SP , 0 . 0 
' ar ;•: i us A , B , C , D , E , l-l , L , ( HL > , A 
700 RESTORE 770 
710 F0RX=1TQS 
720 READQ*,ai* 
730 0=VAL < "?H"+0$) 
740 I FM5=sQTHENA**A*4 Q 1 * 

750 NEXTX 
760 RETURN 

770 DATA 0.B, 1 . C, 2. D. 3, E, 4, H, 5. L, 6. 
(HL) ,7, A, 0,0 

780 ' arxiua nz, 2, nc, c, po, p, H 

790 RESTORE 360 

800 F0PX=iT03 

810 READG$, Glf- 

820 0=0 AL (Q*) 

330 I FM 1 -OTHEMAf-Af+Q 1 * 

840 NEXTX 

350 RETIJRN 

860 DATA 0,N2, 1, Z . 2, NC, 3, C, 4, PO, 5, P 
E.6,P.7,M 

M1,M2,M3.M4, IN 
380 1=1+1 

890 B=PEEK(I> 
900 B*=BIN$(B) 

910 3=LEN(B*) : IFS<8THEN: B < f = "0"+B4»¡ G 
0T09 1 0 

920 M 1 - VAL ( " ?<B " +M I D* ( B* , 3,3) ) 
930 M2~VAL ( "?<B"+RIGHT* <B*,3) ) 
940 M3=»VAL ( " 8cB" +M I D* (Bf , 3,2)) 
950 N4=VAL ( " leB " +M I D* ( B* , 5 , 1) ) 
960 I N- VAL ( " ?<B " +LEFT* •' BU , 2 ) ) 
970 B3$=HEX*'B) 

980 S=LEM(B3*) : IFE 2THEM : B3*= " 0 " +B3 
$:GOTO980 

9 90 IFBZ * - n 0 0 "THEN B E E P 
1000 RETURN 
1010 ' ARXIUS IX, I Y 

1020 IFH=1THENA*=A*+" ( IX+ " : GOSUB440 
: A*=A*+" ) " 



870 






1030 IFH=3THENA*=A*+" (IY+" : GOSUB440 
: A*=A*+"> " 
1040 RETURN 

1050 ' codi d ' un bit 

1 060 I F I N=0THEN : GOSUB 1110 
1070 IFIN=1THEN: GOSUB1720 
1 080 I F I N»2THEN : GOSUB 1 800 

1090 IFIN=3THEN: GOSUB 1920 
1100 RETURN 

1110 I F M2*0THEN : GOSUB 1 200 : RETURN 
1120 IF M2=1THEN¡ GOSUB 1380: RETURN 
1130 IF M2=2THENj GOSUB 1290: RETURN 
1140 IF M2=3THEN : GOSUB 1 41 0 : RETURN 
1150 IF M2=4THEN: GOSUB 1480: RETURN 
1160 IF M2=5THEN: GOSUB 1530: RETURN 
1170 IF l y 12=6THEN: GOSUB 1570: RETURN 
1 1 80 I F M2»7THEN : GOSUB 1 620 : RETURN 
1190 RETURN- 

1 200 I FM 1 =0THENA*=A*+ " NOP " 

1210 I FM t - 1 THEN A»= A*+ "EX AF , AF ' " 

1220 IFM1=2THENA*=A*+ "BJNZ " : G0SUB5 

50 



: 




1230 £FM1*3THENA*~A*+ ,, JF , ' 
0 

1240 IFMi=4THENA*«=A* + "JR NZ,":GOSUB 
550 

1250 IFM1=5THENA*=A*+"JR Z , " : G0SUB5 
50 % 

IFMÍ»6THENA**Á*+ ,, JR NC„ ": GOSUB 




0 



(DE) , A" 



< " : G0SUB46 



1270 IFM 1 ~7THENAf>~ A$+ " JR C, " : GOSUB5 
50 

1280 RETURN 

1290 IFM1=0THEN: A*=A*+"LD (BC),A" 
1300 I FM 1 = 1 THENA$= A$+- " LD A,(BC>" 
1310 I FM 1 =2THENA*=A*+ " LD 
1 320 IFM1=3THENA*=A*+"LB A. (DE) " 
1330 IFM1«=4THENA*=A*+"LD ( " : G0SUB46 
01 A*=A$+" ) , HL" 

1340 IFM1 =5THENA$"A$ J "LD HL, ( " : GOSU 
B460: A*=A*+" ) " 
1 350 IFM í =6THENA*= A*+ " LD 
0: A*=A*+"> , A" 

1360 IFM1=7THENA*=A* ' "LD A,(":GOSUB 
460: A*=A*+") " 
1370 RETURN 

1380 IFM4=0THEN: A*=A*+"LD " : G0SUB62 
0: GOSUB460 

1390 IFM4=1THEN: A*=A*+"ADD HL,":GOS 
UB620 

1400 RETURN 

1410 REM codi 00 011 

1420 IFM4=0THENA*=A*+"INC " 
1430 I FM4= 1 THENAf =A*+ " DEC " 
1440 GOSUB 620 




1450 
1460 

1470 

1 480 
1 490 
1 500 
1 5 1 0 
1520 
1530 
1 540 
1550 
1 560 
1570 



II 



110 



1 590 
1 600 
1610 
1620 
1 630 
1 640 
1 650 
1660 



1 i 1 



RETURN 
RETURN 

REM codi 00_ 
A$=A*+"INC " 
M5=M1 
GOSUB 700 
RETURN 
REM codi 00 
A*=A* +"DEC 
GOSUB 1490 
RETURN 
REM codi 00 

A*=A*+"LD " 
GOSUB 1490 
A*=A$+" , " 
GOSUB 440 
RETURN 
REM codi 00 

I FM 1 «0THEN : A*= Af + " RLCA " 
I FM 1 « 1 THEN : A*=A*+ " PRCA " 
I FM 1 =2THEN : A*=A*+ " RLA " 
I FM 1 =3THEN : A*«*A*+ " RRA " 
I FM 1 =4THEN : A*= A*+ " DAA " 
IFM1*5THENS A*=A*+"CPL" 
IFM1=6THEN: A*=A*+"SCF" 
I FM 1 -7THEN : A*=A*+ " CCF 
RETURN 

REM codi 01 

A*=AS+"LD " 
M5 = M1 
GOSUB 700 
A*=A*+", » 
M5=M2 
1780 GOSUB 700 
1790 RETURN 

FEM codi 10 

I FM 1 =0THEN : A*=A*+ " ADD 
IFM1=1THEN: A$=A$+ "ADC 
I FM 1 =2THEN : At>= A*+ " SUB 
IFM1=3THEN: A*=A*+"SBC 
IFM1=4THEN: A*=A*+"AND 
I FM 1 =5THEN : A*= A*+ " XOR 
I FM 1 =6THEN : A*=A*+ " OR 
I FM 1 =7THEN : A*= A*+ " CP 
M5=-M2 
GOSUB 700 
RETURN 
REM Codi 11 

IFM2=0THEN: A*=A*+"RE 
90: RETURN 

1 940 I FM2= 1 THEN : GOSUB2020 : RETURN 

I FM2=2THEN : G0SUB2 110: RETURN 
IFM2«3THEN: GOSUB2170: RETURN 
IFM2=4THEN: GOSUB2260: RETURN 
IFM2=5THEN: GOSUB2320: RETURN 



1 680 
1690 
1700 
Í 7 1 0 
1 720 

1 730 
1 740 
1 750 
1760 
1 770 



1 800 
1810 
1820 
1 830 
1840 
1850 
1 860 
1870 
1 880 
1890 
1900 
1 9 1 0 

1920 
1930 



II 



A, " 



lt 



A, 

n 



ii 



1 1 





" s G0SUB7 



1 950 
1 960 
1970 
1 980 





\ 



AF 



2050 
2060 
2070 
2030 





1 990 I FM2=6THEN : GOSUB2370 : RETURN 
2000 IFM2=7THEN: GOSUB2420: RETURN 

2010 RETURN 

2020 REM codi 11 001 

2030 IFM4=0ANDM3=3THENA*=A*+"POP 
" : RETURN 

2040 IF M4»0 AND M3« 3 THEN A*« 
POP ":GOSUB 620: RETURN 

IFM3=0THENA*=A*+"RET " 

IFM3=1THENA*=A*+"EXX" 
IFM3=2THENA*=A*+" JP (HL) M 
IFM3=3THENA*=A$+"LB SP.HL" 
RETURN 

REM codi 11 010 

2110 A**A*+"JP " 
2120 GOSUB 790 
2130 A*=A*+" , " 

2140 GOSUB 460 
2150 RETURN 

2160 REM codi 11 011 

2170 IFM1-0THEN: A*=A*+"JP " : GQSUB46 
0 

2180 TFM1=2THEN: A*=A*+"OUT ! " : GOSUB 

440: A*=A$+" ) , A" 
2 1 90 IFM 1 "3THEN : A*= A*+ " I N A , ( " : GOSU 
B 440: A*=A*+") " 
2200 I FM 1 "4THEN : A*=A*+ " E X 

IFM 1 -5THEN : A$--Aí +• "EX BE, HL" 
IFM1=6THEN: AÜ^A*+"D1" 
IFM1=7THEN: A*=A$+"E1 " 



I 



(SP) , HL" 



RETURN 




2300 
2310 
2320 
AF" 
2330 



2210 
2220 
2230 
2 2 4 0 

2250 REM codi 11_ 
2260 A*=A*+"CALL " 
2270 GOSUB 790 
2280 A»»A*+" , " 
2290 GOSUB 460 
RETURN 

REM codi 11 101 

IF M4-0ANDM3-3THEN: A**A*+"PUSH 
RETURN 

IF M4«=0THENA*«A*+"PUSH ": GOSUB 
620: RETURN 
2340 IF M4=1ANDM3=0THENA*=A*+-"CALL 
": GOSUB 460 
2350 RETURN 

2360 REM codi 11 110 

2370 GOSUB 1800 
2380 Bl=LEN(A*>-4 
2390 A*=LEFT*(A*,B1> 
2400 GOSUB 440 
2410 RETURN 

2420 REM codi 11 111 

I FM 1 -0THEN : A*= A*+ " 0h " 
IFM1 = 1 THEN: A*^A$+"8h" 

I FM 1 --2THEN : A*=- A*-<- " 1 0h " 



2430 
2440 

2450 









2480 
2490 
2500 



r>*s.r>ñ 



0 



0 

2560 



2620 
263!? 
2640 
2650 
2660 
2670 
2680 



2460 I FM 1 =3THEN : A**A*+ " 1 8h " 
2470 IFM1=»4THEN: A$=A$+ " 20h " 

IFM1=-5THEN: A*=A*+"28h" 

I FM 1 =6THEN : A*= A*+ " 30h " 
I FM 1 =7THEN : A*»A*+ " 38h " 
^"10 RETURN 

REM CB+ dos bits 

^30 GOSUB 880 

40 IF IN=0THEN:5OSUB2600 
I F I N= 1 THEN : GOSUB2700 
IF IN=2THEN: GOSUB2740 
I F I N=3THEN : GOSUB2770 
2580 RETURN 

2590 REM codi 11 111 

2600 IFM1=0THEN: AÍ=A** M RLC" 
2610 IFM 1=1 THEN: A*=A*+"RRC M 

I FM 1 -2THEN : A*«A*+ " RLh " 
I FM 1 «3TMEN : A*«A*+ " RRh " 
I FM 1 "4THEN : A**A*+ " SLA " 
I FM 1 =5THEN : A*= A*+ "SRA " 
IFM1~6THEN: At>~A1>+" 
IFM 1 -7THEN : A*=A** " SRL " 

IF H~ : 0THENM5-~M2 : GOSUB700 
2690 RETURN 

2700 A*=A*+"BIT " 
2710 A*=A*+STR$ (MI ) +", " 
2720 GOSUB 2680 
2730 RETURN 
2740 A*=A*+"RES 
2750 GOSUB 2710 
2760 RETURN 
2770 A$=A*4"SET 
2780 GOSUB 2710 
2790 RETURN 
2800 H= 1 : GOSUB880 
2810 IF B-S-HCBTHEN: GOSUB 3090 
2320 IF IM-0THEN: GOSUB2370 

I F I N* 1 THEN : GOSUB2960 
IF IN»2THENs GOSUB3030 
I F I N=3THEN : GOSUB3060 
2360 RETURN 
2870 GOSUB 1110 
2380 Y*="HL" 

2890 L«INSTR<l,A*,y#) 

L1=LEN(A$) :L1=L1-L-1 
I FH= 1 ANDL 1 : 0THEN : A*=LEFT* ( A* , L 
-1)+"IX"+RIGHT*<A*,L1) 
2920 IFH=1ANDL1 O0THEN A*=LEFT*<A*, 
L-1)+"IX" 

2930 IFH=3ANDL1 : 0ANBL>0THEN: A*-LEFT 

*<A*,L-1)+"IY"+RIGHT*<A*,L1> 

2940 IFH=3ANDL 1 =0THEN A*=LEFT*<A*, 

L— 1 ) + " I Y" 

2950 RETURN 

2960 GOSUB 1720 



II 



II 



330 



2 





9 1 0 



— 




m 



■ 




m m 





2970 Y*=" (HL) " 
2980 L=INSTR(1,A*,Y*> ' 

A1*=A*: L1=LEN <A*> :Ll=Ll-L-3 
I FL 1 «*< 0THEN : A$=LEFT* ( A* . L- 1 ) : G 
□SUBI 020 

30 1 0 I FL 1 >0THEN : A$~LEFTf ( A* , L- 1 ). : Gü 

SUBI 020: A*=A*+RIGHT* (Al*, Ll ) 

3020 RETURN 

3030 GOSUB 1800 

3040 GOSUB 2970 

3050 RETURN 

3060 GOSUB 1920 

3070 GOSUB2880 

3080 RETURN 

3090 GOSUB380 

3100 GOSUB 2540 

3110 GOSUB 2970 

3120 RETURN 



REM CODI ED+01 000 

GOSUB 880 
3150 IF I N= 1 THEN : G0SUB3 1 90 
3160 IF IN=2THEN: GOSUB3660 
3170 RETURN 

3180 REM Codi ED+00 

3190 IFM2--0THEN: GOSUB3280: RETURN 
3200 IFM2=1THEN: GOSUB3330 : RETURN 
3210 IFM2=2THEN: GOSUB3370: RETURN 
3220 IFM2=3THEN: GOSUB3430: RETURN 
3230 IFM2 r: 4THEN: GOSUB3480: RETURN 
3240 I FM2-5THEN : GOSUB 

IFM2=6THEN:G0SUB3' 







3600 : RETURN 



3260 IFM2=7THEN: 
3270 RETURN 
3280 A*=A*+" IN " 
3290 GOSUB 700 
3300 A*=A*+" , (C) " 
3310 RETURN 

3320 REM CODI ED+01 001 

3330 A*=A*+"OUT (C) , " 
3340 GOSUB 700 
3350 RETURN 

3360 REM codi ED+01 010 

3370 IFM4=0THENA*=A*+"SBC " 
3380 IFM4=1THENA*=A*+"ADC " 
3390 A*=A$+"HL ¡< " 
3400 GOSUB 620 
I 3410 RETURN 

3420 REM codi ED+01 011 

3430 A*=A*+"LD " 

3440 IFM4=1THEN:GOSUB620: A$=A*+", ( " 
: GOSUB 460 : A*=A*+ " ) " 

3450 I FM4-0THEN : A$= A$+ " < " : GOSUB 460 
: A$=A*+") , ": GOSUB 620 
3460 RETURN 
13470 REM codu ED+01 10(2 



10 

3520 



3560 
3570 



3600 
361 0 
3620 
3630 



3480 IF M1=0THENA*==A*+"NEG M 
3490 RETURN 

3500 REM codu ED+01 101 

IF M 1 =0THENA$=A$+ "RETN " 

IF M1 = 1THENA*==A*+ M RETI n 
3530 RETURN 

3540 REM codi ED+01 110 

3550 IF M1=0THENA*=A*+" IM0" 

IF M1=2THENA* = A*-+ n IM1 " 

IF M1=3THENA*=A*+" IM2 M 
3580 RETURN 

3590 REM codi ED+01 „_ 111 

IF M1~0THENA*=A*"-+ "LD I,A" 

IF M 1 =2TMENA$=A$+ "LD A, I" 

IF M1=4THENA*~A*+"RRD M ' 

IF M1=5THENA*=A$+ ,, RLD" 
3640 RETURN 

3650 REM codi ED+10 

IF M 1=4THENA$= : A$+ " LD " 
IF M1=5THENA*=A*+ ,, CP" 
IF M1=6THENA*^A$+ H IN M 

IF M1^7THENA*==A$+ ,, 0UT M 
3700 RETURN 
3710 RETURN 

IF M1=4THENA*^A$+" I " 
IF Ml=5THENA*=A*+ n D M 
IF Ml=6THENA*=sA*+ M IR" 
IF M 1 =7TMENA$=A$+ " DR " 
3760 RETURN 

3770 CLS: I NPUT" modu.l " ;M 

3780 CLS: LDCATE5, 10: INPUT "el 
el modul " ; H$ 

3790 CLS: PRINTB*: FGRX=1T03: FORN=0TO 



3660 
3670 
3680 
3690 



3720 
3730 
3740 
3 



c o s d 



3800 



,N 



33 1 0 I =60000 1 : GOSUB320 
3820 R=LEN(A*> 
3830 R=R-15 
3840 A$=RIGHT*(A*, R) 

3850 A1$=LEFT*(A*,M) : IFA1*=H*THEN 
RINTAÍ; N 

3860 NEXTN, X 
3870 END 
3880 ' 



P 






TEST DE LISTADO 



10 

20 
30 
40 
50 
60 
70 
80 



58 

58 
58 
58 
58 
58 
58 
53 



90 



58 



100 - 58 



1 10 
120 
130 
1 4 0 
1 50 
160 



58 
58 
58 
30 
58 
58 



170 - 
180 - 
190 - 
200 - 
210 - 
220 - 
230 - 
240 ■ 



58 
58 
58 
58 
53 
58 
53 
8 




250 


- 58 


"730 

/ LJ 




1 7. 1 0 


- 1 7 0 

X / >-.' 


1 R40 




R"^ 


23748 


- 1 70 

X # v 






x-*T 


260 


- 58 


790 


-"'49 


1 ^20 


-171 

X / X 


1 O \_.' YJ 






2380 


- 176 

x r 


x- 7 X >i' 




7 


270 


- 58 
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Por Joaquín López 



Damos inicio a una nueva sección 
orientada al aprendizaje de un método 
de programación racional. Buscando 
nombres para ella, surgió el inevitable 
«COMO SE PROGRAMA UN JUE- 
GO». Bajo epígrafes como éste suelen 
esconderse secciones que explican la 
forma de definir sprites o de hacer 





que aparezca un disparo láser y su es- 
tela se borre posteriormente. Cosas 
como estas se aprenden a las pocas 
horas de sentarse ante la máquina, por 
lo que no es aconsejable aburrir a los 
lectores con temas ya superados. 

CALL pretende ser algo útil e intere- 
sante, que os aclare dudas y os trace 
Ijna línea a seguir. Lo que aquí se ex- 
ponga, será fruto de la experiencia y 
de una clara convicción de que el ar- 
duo camino de la programación puede 
aliviarse evitando caer en errores, por 
lo demás, muy comunes. 

Ante todo, vaya por delante que 
cada programador suele tener un estilo 
característico y lo que a unos les pue- 
de parecer ortodoxo a otros no. De 
cualquier forma, aquí se intentarán ex- 
poner los temas de un modo claro. 
Ahora bien, si alguien pretende encon- 
trar la perfección en estas páginas 
acabará decepcionado. Por contra, se 
presumirá que el lector cuenta con una 
buena base previa, en otras palabras: 
es capaz de construir programas en 
BASIC que funcionan y tiene, como 
mínimo, nociones de código máquina. 

HERRAMIENTAS 

El programador sabe que es impen- 
sable trabajar sin tener una buena co- 
lección de rutinas de las más variadas. 
A través de estas páginas tendréis la 
oportunidad de reunir muchas de és- 
tas, que si bien son de poca utilidad in- 
dividualmente, resultan, como ya he di- 
cho, imprescindibles en su conjunto. 
Tened en cuenta que es posible que 
no dispongáis siempre de la rutina ne- 
cesaria, pero no cabe duda que es 
más cómodo adaptar una parecida que 
escribirla completamente. 

En éste, el primer capítulo, se ex- 
pondrá muy brevemente el funciona- 
miento de los ORDINOGRAMAS y se 
entrará propiamente en tema desarro- 
llando una rutina capaz de duplicar 
horizontal y verticalmente cualquier 
dibujo o carácter que aparezca en la 
pantalla. 

Ya he apuntado que lo que aquí se tra- 
ta será fruto de la experiencia y ella me 
dice que los ORDINOGRAMAS sólo son 
útiles si no se cae en la trampa de ser es- 
clavos de ellos. Así pues, construiremos 
un ORDINOGRAMA muy detallado 
cuando el problema lo merezca (típica- 
mente cuando haya un gran número de 
condiciones a comprobar), en los de- 
más casos nos limitaremos a esbozar 
un diagrame de flujo bastante esquemá- 
tico. 



LOS ORDINOGRAMAS Y SU 
SIMBOLOGIA 



Cualquier instrucción de cualquier 
lenguaje puede ser representada con 
la ayuda de los ORDINOGRAMAS. En 
síntesis, se trata de inscribir un texto 
en una figura geométrica (tal como un 
rombo, un rectángulo, un círculo, etc..) 
que representaran sentencias, condi- 
ciones, saltos, asignaciones, paradas, 
etc.. No obstante, resulta curioso ob- 
servar como existe un desacuerdo ge- 
neral en lo tocante a los símbolos de 
los ORDINOGRAMAS. Nosotros eludi- 
remos esto fijando ahora los símbolos 
y su significado. En principio, emplea- 
remos estas figuras: 



ASIGNACION 



Un rectángulo representará una sen- 
tencia o una asignación. 




Un rombo indicará que se va a com- 
probar si se cumple o no una condi- 
ción. Si el texto es muy largo puede, 
alternativamente, emplearse un polígo- 
no con dos lados horizontales largos y 
otros cuatro más cortos y de la misma 
longitud. 




Un círculo servirá para señalar la de- 
tención del programa o un salto a una 
parte importante del mismo. 



IMPRESION 



Un trapecio servirá para indicar que 
el texto o las variables encerradas en 
él serán impresas en la pantalla. 




Un pequeño triángulo con la base in 
vertida señalará el inicio de la ejecu 
ción del programa. 




SI 




IMPRESION 



Las líneas, tanto si acaban en una 
punta de flecha como s¡ no, indicarán 
el camino que deberá seguir la ejecu- 
ción del programa. 




INPUT 








Un rectángulo con los lados peque- 
ños redondeados indicará que se debe 
leer una variable con un INPUT o una 
dirección de memoria de un puntero. 

EL ERROR HAS COMUN 

La mejor forma de perder gran canti- 
dad de tiempo en el desarrollo y en la 
ejecución, derrochar memoria y acabar 
con un programa lleno de gusanos es, 
sin duda, sentarse ante el ordenador e 
intentar escribir un programa sin haber 
solucionado previamente el algoritmo 
correspondiente. 

En efecto, os puedo asegurar que es 
virtualmente imposible desarrollar un 
programa digno sin haber llenado una 
buena cantidad de cuartillas resolviendo 
los problemas que, de seguro, aparece- 
rán a la hora de pulsar las teclas. No pre- 
tendo que escribáis en el papel todas y 
cada una de las líneas que luego apare- 
cerán en el programa terminado, pero, 
como mínimo, deberéis hacer un esbo- 
zo extenso y que no ofrezca dudas. Si- 
guiendo este método, obtendréis un 
programa claro y estructurado que os 
hará más fácil su depuración y os permi- 
tirá ampliarlo o modificarlo, si las cir- 
cunstancias los requieren, sin demasia- 
das dificultades. Los programas confu- 
sos y poco estructurados sólo pueden 
justificarse en los casos en los que la ve- 
locidad de ejecución y la cantidad de 
memoria a emplear son críticas (por 
ejemplo: la ROM de tu ordenador), y re- 
sulta curioso observar como en estos 



casos son programadores profesiona 
les quienes los realizan. 

AMPLIACION DE DIBUJOS T 
CARACTERES 



Veamos cómo se puede hacer que 
una parte de la pantalla se amplíe. Mi 
objetivo es, empero, que intentéis cons- 
truir una rutina que realice esta función, 
contando sólo con unas cuantas indica- 
ciones y sin mirar el resultado final en 
estas páginas, hasta que tengáis algo 
vuestro que funcione. 

Ante todo hay que estimar la magni- 
tud del problema. La pantalla, sin contar 
la zona destinada al color, esta com- 
puesta por una red de 192 x 256 pun- 
tos, lo que hace un total de 49152. Con 
esta cantidad, es obvio que serán nece- 
sarios unos cientos de miles de pasos 
para tratarlos todos. El BASIC no es pre- 
cisamente el campeón de la velocidad, 
por lo que se hará necesario recurrir al 
ASSEMBLER. Sin embargo, o$ aconse- 
jo a los que no dominéis este lenguaje 
que intentéis hacerlo, después de todo, 
en BASIC. El resultado no será muy bri- 
llante, pero es seguro que os servirá de 
mucha ayuda para comprender el fun- 
cionamiento de la rutina en ASSEM- 
BLER. 

El siguiente paso es determinar las 
condiciones de entrada y de salida. Está 
claro que si una zona de la pantalla va a 
ser ampliada horizontal y verticalmente 
ocupará cuatro veces su extensión origi- 
nal. 

Convengamos pues que la zona a 
ampliar será la central. Un cálculo rápi- 
do nos indicará que el vértice superior 
izquierdo de ésta se encontrará situado 
en las coordenadas 64,48 (ver figura 1 ). 
Asimismo, obtendremos fácilmente las 
dimensiones del rectángulo a tratar, que 
son 1 28 x 96 (o lo que es lo mismo: 1 6 x 
12 caracteres de pantalla de la forma 8 
x8). 

El puntero de salida, ya con los puntos 
ampliados, señalará, como no, al origen 
de la pantalla. Como sabéis, el VDP ma- 
neja la zona de imagen empezando por 
la esquina superior izquierda y bajando 
una línea cada vez hasta llegar a la octa- 
va (ver figura 2), momento en el que la 
posición vertical es decrementada en 
ocho unidades y la horizontal es incre- 
mentada en uno. Cuando se alcanza el 
final de una línea (32 cuadratines de 8 x 
8 ó 256 pixels), la siguiente dirección se 
refiere a la coordenada horizontal cero, 
mientras que se añade uno a la vertical. 
El meollo de la cuestión es observar que 
la primera línea de un carácter difiere de 
la primera línea del que está debajo en 
256 posiciones. Puesto que cada cua- 
dratín de la zona de origen ocupará die- 
ciséis pixels en vertical, deberemos in- 
crementar el puntero de destino en 256 
unidades, cada vez que se hayan trata- 
do las cuatro primeras líneas de un ca- 



rácter, y habremos de reponerlo a su va- 
lor inicial, cuando hayamos concluido 
las cuatro líneas inferiores del cuadratín. 

Todo lo expuesto anteriormente con- 
lleva la necesidad de emplear un buffer 
temporal para almacenar la nueva ima- 
gen, puesto que al ir tratando puntos és- 
tos solaparían a los originales y acaba- 



ORDINOGRAMA 



riamos ampliando pixels ya considera- 
dos, con lo que el resultado sería dispa- 
ratado. 

Llegado a este punto, os aconsejo 
que intentéis construir vosotros mismo 
la rutina. Si no os veis con fuerzas, 
echad primero un vistazo al ORDINO- 

GRAMA: 



V 







AJUSTA LOS PUNTEROS DE 
ESCRITURA Y OE LECTURA. 






PREPARA UN BUCLE CONTA- 
DOR DE LAS LINEAS DE 
PANTALLA. 






• 


PREPARA UN BUCLE CONTA- 
DOR DE COLUMNAS. 

• 





PREPARA UN BUCLE CONTA- 
DOR DE LINEAS DE CARAC- 
TER. 



■^BUCLEl^ 




LEE EL VALOR DE LA VRAM 
SEÑALADO POR EL PUNTERO 
DE LECTURA. 




^BUCLE^ 




LEE LOS CUATRO ULTIMOS ] 
BITS PARA DUPLICARLOS. J 



LLAMA A LA RUTINA OE DU 
PLICACION (BIT). 



- 



PON EL RESULTADO EN LAS 
DIRECCIONES QUE INDICA 
EL PUNTERO DE ESCRITURA. 




LEE LOS CUATRO PRIMEROS 
BITS PARA DUPLICARLOS. 




LLAMA A LA RUTINA DE OU 
PLICACION (BIT) 



PON EL RESULTADO EN LAS 
DIRECCIONES QUE INDICA 
EL PUNTERO DE ESCRITURA. 




NO 




SI 





EL PUNTERO 
OE ESCRITURA 
ESTA EN LA LI- 
NEA SUPERIOR? 




NO 



HAS QUE EL PUNTERO DE 
ESCRITURA SEÑALE A LA 
LINEA SUPERIOR. 



SI 



HAS QUE EL PUNTERO DE 
ESCRITURA SEÑALE A LA 
LINEA INFERIOR. 




0 




1 




2 


1 


3 




4 








6 








256 




figura 1 




o 


255 


64,48 




1 91 zona de ampliación 
figura 2 

El diagrama de flujo de la rutina es 
bastante explícito. No resultará difícil 
adaptarlo a cualquier lenguaje de pro- 
gramación. Sin embargo, nada como el 
ASSEMBLER. He aquí su listado: 



10 


VPEEK: 


EQU 


#4A 


20 


RAMVRM: 


EQU 


#5C 


30 


BUFFER: 


EQU 


40000 


40 




ORG 


50000 


50 




LD 


IX, BUFFER 


60 




LD 


HL, 1600 


70 




LD 


B, 12 


80 


BUCLEO: 


PUSH 


BC 


90 




LD 


B.32 


100 


BUCLE 1: 


LD 


C,4 


110 


BUCLB2 : 


CALL 


VPEEK 


120 




PUSH 


AF 


130 




CALL 


BIT 


140 




LD 


< IX+8> , A 


150 




LD 


( IX+9) , A 


160 




POP 


AF 


170 




SRL 


A 


180 




SRL 


A 


190 




SRL 


A 


200 




SSL 


A 


210 




CALL 


BIT 


220 




LD 


< IX+0> , A 


230 




LD 


( IX+1) , A 


240 




IMC 


HL 


250 




IIC 


IX 


260 




INC 


IX 


270 




DBC 


C 


280 




JR 


MZ , BUCLES 


290 




BIT 


0, B 


300 




LD 


DE, 248 


310 




JR 


Z, Bl 


320 




LD 


DB.-248 


330 


Bl: 


ADD 


IX, DE 


340 




DJFZ 


BUCLE 1 


350 




LD 


DB, 128 


360 




ADD 


HL, DB 
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NO 






SI 


SITUA ADECUADAMENTE LOS 
PUNTEROS PARA QUE SEÑA- 
LEN A LA SIGUIENTE LINEA. 








NO 




TRANSFIERE EL CONTENIDO 
DEL BUFFER A LA VRAM. 




370 




LD 


DB.256 


380 




ADD 


IX, DE 


390 




POP 


BC 


40.0 




DJÍZ 


BUCLEO 


410 




LD 


BC.6144 


420 




LD 


DB.O 


430 




LD 


HL , BUFFBR 


440 




CALL RAMVRM 


450 




RBT 




460 


BIT; 


LD 


B,4 


470 




LD 


D, A 


460 


BÜCLE3 : 


SRL 


A 


490 




SRL 


A 


500 




SRL 


D 


610 




JR 


VC.B2 


520 




OR 


192 


530 


B2: 


DBC 


B 


540 




JR 


HZ , BUCLB3 


550 




RBT 





Si posees un ensamblador, teclea el 
listado ASSEMBLER tal como aparece. 
De no ser así, cómprate uno rápidamen- 
te, pero antes emplea este pequeño car- 
gador de líneas DATA para introducir los 
códigos en la memoria: 



10 FORX=50000!T050108! 
20 RBADVS: POKEX, VAL< M *H M +V*> 
30 S=S+VAL<"AH"+V$> : NEXT 
40 IFSOl 0855THE1ÍCLS : BEEP : PR I HT" HAY 
UH ERROR 

50 DATADD,21,40,9C,21,40,6,6,C,C5,6 
, 20, E, 4 , CD, 4 A, O, F5, CD, AC, C3, DD, 77, 8 
, DD, 77, 6, Fl , CB, 3F, CB, 3F, CB, 3F, CB, 3F 
, CD, AC, C3, DD, 77, O, DD, 77, 1, 23, DD, 23, 
DD,23,D,20,D9,CB>40, 11 , F8, O, 28, 3, 11 
,8, FF, DD, 19, 10, C9, 11,80, O, 19, 11, O, 1 
,DD, 19, Cl, 10, BA, 1,0, 18, 11 
60 DATAO, 0,21, 40,9C,CD,5C, 0,C9, 1E, 4 
, 57, CB, 3F, CB, 3F, CB, 3A, 30, 2, F6, CO, ID 
,20,F3,C9 

Ahora ya estamos en condiciones de 
probar la rutina con un pequeño gestor 
escrito con unas cuantas líneas BASIC: 



10 OPEN" GRP : " ASI : DEFUSR=50000 ! 
20 SCREEN2: COLOR 15, 1 , 15: CLS 
30 PRESET<105,88):PRINT#1,"PRU 
EBA M : GOSUB60 

40 PRESET<121, 97) : PRINT#1 , "DE" 
: GOSUB60 

50 PRESET < 97 , 92 ) : PR I NT#1 , " AMPL 
I ACION" : GOSUB60 : GOSUB60 : END 
60 FORX=0TO4: A=USR<0) : NEXT 
70 RETURN 



todo sale como está previsto, po- 
dréis comprobar la extraña sensación 
de movimiento que dan las letras al ser 
ampliadas sucesivamente. Curiosa- 
mente es la rutina BIT, de solo 1 7 bytes, 
la que realiza la mayor parte del trabajo, 
es decir: conseguir que los cuatro prime- 
ros bits del acumulador sean duplica- 
dos. Os recomiendo que la estudiéis de- 
tenidamente si no domináis las instruc- 
ciones de rotación y desplazamiento del 
Z80. 



LIMITACIONES 



Naturalmente una rutina que ocupa 




1 08 bytes debe tener muchas restriccio- 
nes. Probad a cambiar la instrucción 
COLORI 5, 1, 15 de la Ifnea veinte por 
COLORI 5, 1, 1 y corred el programa. 
¿Sorprendidos? Quizá no sepáis que el 
BASIC emplea el color transparente 
para completar más rápidamente el tra- 
zado de caracteres y dibujos. No obs- 
tante, el VDP asume que si la tinta y el 
fondo son transparentes debe pintar el 
color del borde. 

La rutina de ampliación únicamente 
considera la zona de imagen y despre- 
cia la de color. De cualquier forma, es 
muy sencillo tener presente el color. 
Una vez tratada cada posición, los pun- 
teros pueden ser incrementados en 
81 92 unidades para leer la zona de atri- 



butos y duplicarla. Otra cuestión será la 
velocidad, que se verá reducida. 

Hablando de velocidad, si queréis que 
la rutina corra bastante más rápido co- 
piad primero el contenido de la VRAM 
en un buffer. Así sólo tendréis que referi- 
ros a las posiciones de este buffer, en lu- 
gar de acceder al VDP cada vez que es 
necesario leer un byte. El BIOS se co- 
munica con procesador de vídeo como 
si fuera un dispositivo de entrada/salida, 
con las demoras que ello supone. Por si 
esto fuera poco, el VDP tiene momentos 
en los que su ocupación no le permite 
atender a los requerimientos de la CPU. 
En fin, es mejor traer a la RAM de una 
sola vez todos los datos de la VRAM y 
resignarse a perder memoria, en favor 



de una mayor velocidad de procese. 

C0NCLU8I0HES 

Desde aquí os emplazo a seguir el de- 
sarrollo de esta nueva sección. En los 
próximos capítulos tocaremos temas de 
los más variados, tales como algoritmos 
de uso frecuente, creación de perspecti- 
vas, efectos tridimensionales, scrolls de 
pantalla, movimientos animados, etcé- 
tera. 

Confío en que «CALL» servirá de ayu- 
da y resultará lo suficientemente ameno 
como para que intentéis resolver voso- 
tros mismos los problemas que se plan- 
teen en estas páginas. 
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Conviértete en el más valiente pilo- 
to interestelar. Libra una especta 
cular batalla y atraviesa el hiperes 
pació. Destruye bunkers, minas 
mortales y naves agresoras. Tu des- 
treza y tus misiles puedan salvar la 
vida de los Hornos tiranizados por 
Darus. 

STAR RUNNER ES UN JUEGO 
SENSACIONAL 

Producido por 
Manhattan Transíer, S.A. 
RocaiBatlIe, 10-12 
08023 Barcelona 
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STTPER MONITOR 

SD-26 PIONEER 

Este monitor Pioneer SD-26 presen- 
ta un innovador diseño modular y 
una pantalla de 26". Gracias a su 
arquitectura interior y la aplicación de los 
últimos logros en la alta tecnología este 
aparato puede desempeñar tanto funcio- 
nes de televisor como de monitor, ya que 
está preparado para recibir señales de 
gran potencia y dar como resultado imá- 
genes de alta resolución. 





mitsubis: 

ta comercializa el msx-2 

Dos modelos para elegir 

Mabel SJL, distribuidora oficial de 
Mitsubishi en España ha lanza- 
do dos modelos de MSX, el ML- 
Ql y el ML-03. Las diferencias no radican 
en su mayor o menor potencia sino en las 
opciones de uno y otro. El ML-G1 incluye 
un software gráfico, llamado Art Paper, 
mientras que el ML-G3 incluye un proce- 
sador de textos, hoja de cálculo, base de da- 
tos, gráficos, comunicaciones, como soft- 
ware y una salida serle estándar y una 
unidad de disco, con opción para una se- 
gunda. La compatibilidad con la primera 
generación es completa pudiendo traba- 
Jar en uno y otro sin problemas en los cua- 
tro primeros modos de pantalla. 



MIDI VENTAMATIC 




Ventamatic es la primera tienda Hi- 
Tech de España y comercializa to- 
do tipo de instrumentos de alta 
tecnología musical. Como ya anunciamos 
oportunamente es el punto de venta de los 
ordenadores Yamaha en Barcelona (Cór- 
cega 89, Entio. 08029 Barcelona) y en tal 
condición se especializa en la aplicación 
del ordenador en el terreno musical. Al 
respecto, dispone de un importante pa- 
quete de software para distintas marcas 
de ordenadores y; según anuncia el mes 
próximo dispondrá de la intepface MIDI 
MSX, indispensable para acoplar teclados 
musicales al ordenador. 
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MICRO FLOPPT DISK DRIVE 



Especial para el XTress 

La unidad de disco SVI-787 ha sido 
desarrollada especialmente para 
el SVI-738 como segunda opción, 
ya que como sabemos el aparato incluye 
una. La SVI-787 emplea discos de 3,6" y 
360K de capacidad una vez formateado. 
Una característica que lo distingue es que 
el controlador y la alimentación se en- 



cuentran en el mismo ordenador, con lo 
cual el tamaño y el cableado quedan muy 
reducidos. Este periférico puede emplear 
los sistemas operativos MSX-D08, CP/M y 
emular en este último, el formato de algu- 
nas máquinas como Kaypro n, Osborne, 
Bondwell 12 y 8VI-328. El precio aproxi- 
mado es de 82.000 pts. 





Tohru 

Moto 

Masaru 

Kitsuregawa 
El ordenador 
de Quinta 
Generación 

EX profesor Moto oka 
es el director del proyecto 
de Quinta Generación 
en Japón 



EL ORDENADOR 

DE QUINTA GENERACION 

Un Libro de anticipación \ 



La editorial Ariel ha lanzado un libro 
sensacional sobre el proyecto in- 
formático de Quinta Generación en 
Japón. «El Ordenador de Quinta Genera- 
ción», ha sido escrito por Tohru Moto-oka, 
director del proyecto de Quinta Genera- 
ción y Masaru Kitsuregawa. Se trata de un 
libro de gran autoridad sobre la materia y 
escrito con sobriedad. Bn él los autores ex- 
plican en qué consiste la Quinta Genera- 
ción de Ordenadores, cual es el concepto fi- 
losófico que la sustenta. También dan 
cuenta de las limitaciones de las maqui- 
nas actuales y las dificultades básicas 
para alcanzar una máquina realmente In- 
teligente. 




PLOPPY DISK 

MFD-001 SáHYO 

Sanyo dispone de dos modelos de uni- 
dades de disco. 8e trata de las unida- 
des MFD 001 y MFD 002, con posibi- 
lidad de entrada de 1 ó 2 dlskettes respec- 
tivamente de 5 1 /4 pulgadas , con una capa- 
cidad de almacenamiento de 360K por dls- 
kette. No obstante su gran capacidad para 



el almacenaje de datos, la empresa Sanyo 
no lo comercializará por el momento en 
España, lo que no significa que sus apara- 
tos queden desasistidos. Uno de los aspec- 
tos más importantes del estándar es pre- 
cisamente su capacidad de comunicación 
con periféricos de cualquier otra marca. 




PERIFERICOS DYTf ADATA 

Compañeros del MSX 

La casa Dynadata, que comercializa 
en España el ordenador MSX DPC- 
200, cuenta con una importante se- 
rie de periféricos, entre los que destaca- 
mos en esta ocasión el Quick Dlsk Tritón, 
con capacidad de formateado de 102Kb 
( ambos lados ), un Data Cassette y un J oys- 
tick a precios realmente interesantes. El 
Quick Dlsk cuesta aproximadamente 
32.700 pts., la grabadora de datos, 6.800 
pts. y el Joystick 1.800 pts. 
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STAND DE ARKOFOTO 
EN INFORMA! 86 



a empresa Arkofoto 8 A. distribuí- 



T 

I * dora oficial de los productos Yan- 
M I Jen, también estuvo en INFORMAT 
86 presentando periféricos y elementos 
informáticos para distintos ordenadores 
y especial para MSX. Entre todos ellos des- 
tacamos la gama de monitores de alta re- 
solución, la grabadora y cassettes vírge- 
nes y el J oycard digital de la marca YanJ en. 
Arkofoto se encuentra en Barcelona, en el 
P.° de Gracia 22, 2 y su teléfono es el (93) 
301 00 20. El télex es 81645 ARKO E. 




^¡T ARKOFOTO 



MONITORES y p Eí|F£|) 
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TABLETA GRAFICA 

VU 0060 Philips 

Este periférico Philips permite la in- 
troducción directa de gráficos y 
movimiento de cursor. Dispone de 
conmutadores de acción, tanto en el lápiz 
como en la tableta, y de una resolución de 
256 x 256 pixels. Su conexión es total- 
mente directa con cualquier ordenador de 
la norma MSX. Este modelo VU0060 faci- 
lita la creación de gráficos mediante la uti- 
lización del lápiz óptico especial. La cone- 
xión de la tableta se efectúa a través del co- 
nectar de tipo D provisto de 9 clavijas que 
se emplea asimismo para la conexión del 
control manual, con el fin de dejar libres 




los slots de ampliación. Para un mejor 
aprovechamiento de este periférico, se 
vende provisto de un completo manual de 
lns truccione s . 



CURSO BASIC MSX EN VIDEO 

Sonv-Videodidáctico S A* 

Las empresas Sony y Videodidáctico, 
SJl comercializan un programa de 
enseñanza planificada de Baslc- 
MSX, cuyo objetivo es el ofrecer en forma- 
to de vídeo un año de clases en los centros 
de enseñanza. La estructura del curso 
considera tres partes. La primera dedica- 
da al Basic propiamente dicho, que consta 
de 28 video-cassettes y enseña al alumno 
las técnicas de programación y el lengua- 
je. La segunda parte está dedicada al Hard- 
ware y contiene 6 video-cassettes que ex- 
plican los componentes físicos de las má- 
quinas MSX. Por último, la tercera parte 
está dedicada al sistema operativo y se de- 
sarrolla en 6 vídeo-cassettes que enseñan 
el conjunto del sistema operativo MSX 
compatible con MS-DOS, así como el acce- 
so a los distintos periféricos. 

Este curso se puede adquirir tanto en 
Sony España SA., Sabino de Arana 42, 
08028 Barcelona como en Vídeo Didácti- 
co, SJL, Rafael Calvo 8, 28010 Madrid. 




COMIC BAKER Y 

panadero de Xonami 



t * 

El «Comic Bakery » es un Juego de ha- 
bilidad para hacer frente a una se- 
rie de dificultades que se le presen- 
tan al personaje dentro de una panadería 
totalmente automatizada. Una de las difi- 
cultades son los mapaches que acosan al 
panadero desconectándole los distintos 
artefactos de la panadería impidiéndole 
una buena fabricación de pan, y hasta se lo 
comen cuando tienen la oportunidad. El 
formato es de un cartucho y su precio 
aproximado es de unas 5.300 pts. 
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INTERFACE RS-238C 

Toshiba HX-R700 

Este cartucho interface RS-232C, 
modelo HX-R700 de Toshiba es de 
gran utilidad para los ordenadores 
MSX y sobre todo para aquellos usuarios 
que quieran establecer comunicación, 
para información e intercambios de datos 
a través de la red pública de teléfonos. Esta 
unidad puede emplearse en consecuencia 
como acoplador acústico, resultando de 
gran versatilidad ya que su utilidad alcan- 
za para la conexión con otros periféricos. 
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SOFTWARE 
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«SPECIAL OPERATIONS», «BOOGA - B00», «SPLASH» y «TURMOIL» - Precio Venta 
Público recomendado: 2.495,— I.V.A. incluido. Disponibles en Galerías Preciados y en 

todos los establecimientos de Software, o directamente a MIND GAMES ESPAÑA, S.A.: 

Mariano Cubí, 4, entio. I. 1 - 08006-BARCELONA - Tel. (93) 218 34 00 




Deseo recibir los |uegos que a continuación especifico, comprometiéndome al pago del impone de los mismos 
Nombre - 

Dirección _ _ — _ — — • 
leléfono 



SISTEMA. 



CANTIDAD. 



Firma 



O Conif ai reembolso D Adjunto Talón O Giro Postal 
Oeseo recibir inlormación de sus programas en: MSX LJ 





LOS COLORES DEL 
UNIFORME DE TU 
EQUIPO LOS 
PUEDES ELEGIR A 
TU ANTOJO. 



RECORTA Y ENVIA 
C/. BRAVO MURILLO, 



CUPON A: <$> SERMA 
° 377. 28020 MADRID 



TELS.: 733 73 1 1 - 733 74 64 



TITULO 


PRECIO 


CANTIDAD 


KONAMI FUTBOL 


4800 





NOMBRE Y APELLIDOS: 



DIRECCION: 

POBLACION: 

CODIGO POSTAL: 



PROVINCIA: 



FORMA DE PAGO: ENVIO TALON BANCARIO □ CONTRA REEMBOLSO □ 



LOS CARTUCHOS DE ttonantf, SON COMPATIBLES EN TODOS 

LOS ORDENADORES MSX DE LAS MARCAS: 

Sony, Toshiba, Cannon, Mitsubishi, Dynadata, Yashica, Sanyo 

NationaJ Panasonic, Phíiips. 
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EL LENGUAJE PEDAGOGICO 



La firma IDEALOGIC, 8 A. , ha realiiado una excelente adaptación de la potentísima versión del LOGO desarrollada por ACT Informa- 

tiaue oara SONY, uno de los líderes del standard MSX. 





s posible que alguno de nuestros 
lectores no haya oído hablar de 
este interesantísimo lenguaje. 
Para ellos, vamos a decir en primer lu- 
gar que LOGO es un lenguaje de alto ni- 
vel, es decir, que es un lenguaje más 
próximo al lenguaje humano que al de la 
máquina. Todos los usuarios de la nor- 
ma MSX trabajan usualmente en BA- 
SIC, que como se sabe también es un 
lenguaje de alto nivel, pero existen va- 
rios otros lenguajes con estas caracte- 
rísticas como son ADA, COBOL, PAS- 
CAL, LISP... 

UN POCO DE HISTORIA 

En 1959, en el MIT (Massachussets 
Instituto of Technology) se desarrolló un 
lenguaje denominaao LISP (List Pro- 
cessing) que como su nombre indica 
realiza principalmente tratamientos de 
listados, y que estaba orientado a las in- 
vestigaciones en el terreno de la inteli- 
gencia artificial. Un gran atractivo de 
este lenguaje es la recurrencia, que no 
es otra cosa que la posibilidad de utilizar 
procedimientos que pueden llamarse a 
sí mismos. 

En el mismo Instituto Tecnológico de 
Massachussets, diecisiete años más 
tarde, el profesor Seymour Papert inspi- 
rado en el LISP desarrolló la primera 
versión del LOGO. 

Hace algunos años; antes de la popu- 
larización de los ordenadores domésti- 
cos, no era frecuente el uso de monito- 
res de televisión. Por lo tanto, la comuni- 
cación con el ordenador se realizaba 
prioritariamente por el teclado y la ¡m- 

Cresora. Paralelamente al desarrollo del 
OGO y en el mismo MIT se concibió un 
robot gobernado por ordenador que se 
deslizaba por el suelo como una tortuga 
(de ahí su nombre) llevando en su parte 
posterior un lápiz que podía subirse o 
bajarse a voluntad, y que en combina- 
ción con los movimientos que se le indi- 
caban, trazaba dibujos sobre el suelo. 
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El profesor Papert se sirvió de este ro- 
bot e incorporó los gráficos de la tortuga 
a su lenguaje; y con el transcurso del 
tiempo la tortuga pasó del suelo a la 
pantalla del monitor, lo que posibilitó el 
BOOM de este lenguaje. 

De todos modos, el tratamiento de 
gráficos en LOGO aunque sorprendente 
por su facilidad de manejo y su potencia 
operativa tan sólo son un aspecto de 
este lenguaje. Como muy bien indica el 
equipo del centro LOGO en el completí- 
simo manual que acompaña al progra- 
ma «la mayoría de los libros publicados 
hasta el momento recogen muy parcial- 
mente sus posibilidades, dando una vi- 
sión muy reduccionista y quedándose 
en niveles demasiado elementales de 
aplicación». 

Los gráficos de la tortuga son una par- 
te importante de LOGO, bien sea para 
los principiantes o bien para aplicacio- 
nes tridimensionales, pero tan sólo son 
uno de los múltiples ambientes del len- 
guaje. 

EL LENGUAJE DEL 
APRENDIZAJE 

Por encima de otras consideraciones, 
Seymour Papert es un pedagogo. Los 
planteamientos de los que partió para 
desarrollar el LOGO fueron la posibili- 
dad de que un lenguaje que permitiera el 
desarrollo del conocimiento de una ma- 
nera constructiva y sobre la base del 
descubrimiento. Para ello debía aunar 



la potencia operativa con la facilidad de 
manejo, características ambas que po- 
see LOGO. 

El LOGO es un lenguaje modular. 
Permite la construcción de módulos de 
programa que pueden ser parte de un 
programa más complejo, que a su vez 
sera un módulo de otro programa más 
complejo. Además de ello, es un lengua- 
je absolutamente interactivo y muy di- 
recto, lo que lo convierte en una herra- 
mienta de primer orden en la enseñanza 
asistida por ordenador. 

SONY LOGO MSX 

De esta filosofía, participa plenamen- 
te la versión de LOGO que nos ocupa. 
Como hemos mencionado anteriormen- 
te, esta versión -distribuida en cartucho 
ROM por SONY- es especialmente re- 
comendable para todos aquellos que 
deseen iniciarse en este lenguaje que 
además de poderse utilizar como auxi- 
liar de la enseñanza tiene un gran valor 
en sí mismo puesto que obliga al usua- 
rio a discurrir de una manera estructura- 
da. 

LOGO es esencialmente proceso de 
listas y de palabras (no olvidemos que 
su antecesor directo es el LISP) y el ra- 
zonamiento humano está basado en 
ideas, que se expresan como palabras 
organizadas con una finalidad determi- 
nada. Para ello, es importante que el 
conjunto de instrucciones de un lengua- 
je tengan sentido en la lengua habitual 



del usuario. Es ya un tópico el decir qup 
los angloparlantes tienen ventaja sobre 

^parlantes a la hora de traba- 
jar en BASlC, pues la sintaxis que utiliza 
este lenguaje está basada en el idioma 
INGLES. 

Afortunadamente esto no sucede con 
LOGO. El Ministerio de Educación publi- 
có a finales del año pasado una lista ho- 
mologada de las primitivas LOGO en 
castellano, y la versión que estamos co- 
mentando está íntegramente confeccio- 
nada en castellano. De tal modo, si no- 
sotros introducimos un nombre de pro- 
cedimiento incorrecto, LOGO nos dirá: 



NO SE COMO HACER PARA... 

Lo que evidentemente nos resultará 
más inteligible que «Subscript out of 
range" o cualquier otro de los mensajes 
de error a los que nos tiene acostumbra- 
dos el BASIC. 

Las instrucciones de LOGO son fun- 
damentalmente Comandos y Operacio- 
nes. Los nombres de algunos coman- 
dos son: LIMPIA, MODELO, RELLENA, 
RETROCEDE... y los de algunas opera- 
ciones RUMBO, VALORFORMA, TO- 
DOS... 

De entre estos comandos y operacio- 
nes, el LOGO SONY MSX pospp un 
buen número de ellas para el tratamien- 
to de palabras y listas. Fsto hace que 
muchas versiones parciales de LOC30 
que se ocupan exclusivamente del trata- 
miento de gráficos palidezcan a su lado. 
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PROGRAMA A 




PARA AGENDA 
BT 

PONCURSOR [ ¿QUIERES ENTRAR O CONSULTAR DATOS ? ] 

ESCRIBE [PULSA 1 o 2 .] 

PONFONDO 3 
HAZ "SELEC LC 

SI :SELEC = 1 [BT ENTRAR ALTO] 

SI :SELEC = 2 [BT CONSULTAR ALTO] 

n^ ; ; ' 'Q¡ ' ' >; 

PARA ENTRAR 
PONPOS ( 10 5] 

ESCRIBE [ ¿CUAL ES EL QUE DESEAS DAR A LA BASE ? ) 

PONPOS [11 5] 

HAZ "BASE LEELISTA 

SI VACIO? :BASE [ AGENDA ] 

BT PONCURSOR [2 2] 

ESCRIBE [ ESCRIBE EL NOMBRE SEGUIDO DEL TELEFONO ] 

PONESCRITURA ULTIMO BASE 

ENTRAR.DATOS 

FIN 

PARA ENTRAR.DATOS 
HAZ "DATO LEELISTA 
SI VACIO? DATO [ PONESCRITURA [] 

ALTOHES :DATO ENTRAR.DATOS) 
FIN 

PARA CONSULTAR 
PONPOS [12 6] 

ESCRIBE [ ¿DE QUE BASE QUIERES CONSULTAR DATOS'1 

PONPOS [13 5] 

HAZ "BASE LEELISTA 

SI VACIO? BASE [ALTO] 

ESCRIBE [ ¿QUE NOMBRE DESEAS CONSULTAR ? ] 
HAZ "NOMBRE LEELISTA 

SI VACIO? :NOMBRE [ ESCRIBE [ ESTE NOMBRE NO ES 

CORRECTO ] CONSULTAR ALTO ] 
BT 

PONLECTURA ULTIMO :BASE 
CONSULTAR.DATOS ULTIMO NOMBRE 

FIN 

PARA CONSULTAR.DATOS NOMBRE 
HAZ "DATO LEELISTA 

SI FINLEC? [ESCRIBE [NO POSEO ESTA INFORMACION] 

PONLECTURA[] CONSULTAR ] 
SI :NOMBRE = PRIMERO :DATO [ ESCRIBE FRASE 

[ EL DATO QUE BUSCAS ES ] DATO 

:DATO PONLECTURA [] ESCRIBE 

[PULSA UNA TECLA PARA CONTINUAR] 

HAZ "PAUSA LC AGENDA ALTO] 
CONSULTAR.DATOS :NOMBRE 

Para comenzar escribir: 
?AGENDA 









De lo anteriormente dicho, puede 
desprenderse que este lenguaje es un 
lenguaje para niños. Esto no es exacto 
puesto que se trata de un lenguaje dise- 
ñado para evitar los obstáculos iniciales 
del aprendizaje de la programación. Se 
trata de un lenguaje de novísima gene- 
ración, y tal vez en un futuro no dema- 
siado lejano se convierta en el primer 
eslabón de una serie de lenguajes que 
conviertan al ordenador en algo más 
cercano al usuario. 

Nada mejor que presentar un peque- 
ño programa en LOGO para que el lec- 
tor se dé cuenta de las innumerables po- 
sibilidades de este lenguaje y de su sor- 
prendente sencillez de manejo. 

Todos estamos acostumbrados a ver 
un programa de agenda en BASIC. Sa- 
bemos que acostumbra a ser un progra- 
ma de unas 100 líneas con varias ins- 
trucciones multiplexadas en una misma 
línea que hacen que el programa realice 
una serie de operaciones más o menos 
ininteligibles. Por cortesía de SONY, re- 
producimos un programa de agenda 
confeccionado en LOGO. Estamos se- 
guros de que resultará fácilmente inteli- 
gible para cualquier lector aún con unos 

conocimientos rudimentarios de progra- 
mación: «PROGRAMA A». 

En suma: Si usted desea iniciarse en 
programación, comience por LOGO. Si 
desea que le recomendemos una ver- 
sión, utilice la que hemos comentado en 
esta páginas: Nos lo agradecerá. 
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YIE AR KUNG-FU 2 



Konimi/Sermi 
Formato: cartucho 
Mandos: teclado ojoystick 
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n este extraordinario 
Juego te presentamos 
al aún no tan conocí do 

kJJo de L® 6 » el rQ y del Kuíij Fu 

□ Lee Young deberá enfrentarse 

□ con la banda de un antiguo 
• • q enemigo de su padre, Yie Gah. 

q Si decides jugar tú solo es 
...i; n como si hubieras elegido en- 
n frentarte con toda la banda, la 
' ' fi : : : ^Icual está compuesta por: 
v.-:- : : Ornpo de enanos que te 
,v $ S ^atacarán por delante, por arri- 
: i;: D ba y por detrás. En esta parte 
a d e l Juego dependes mi íoho de 
□la rapidez de tus reflejos. Por 
□cada grupo de enanos que Lee 
□Young elimine obtendrás una 
□hojita de té que, aunque parez- 
□ca extraño, constituye el se- 
W& Dcreto de nuestro amigo. Y ano- 
ora verás porqué. Tanto Lee 
Wíi □ Young como sus en emlgos po 
ÍSx ^seen un límite de energía pero 
' " " qSóIo Lee tiene la oportunidad 
_de recuperarla y es gracias a 
n las hojitas de té. 
p: Una vez pasados a los maldi- 
rítos enanos, nuestro valiente 
□amigo se encontrará cara a 
: □cara con el verdadero peligro, 
□el malvado Yie Oan: Este po- 
li □ see una larga trenza con la que 
: Ote puede vencer si no la esqui- 

□ • 



vas oport.H.iamfM.re poro si 
con tu técnica lo derribas a 
pasarás a «a siguiente fa<*p j\<e 

■'•nSlSt^ 0B O n h- »OT»t,i»q la 

bel la v trajci * r« Lang fang 

El ia aparte de imponer <n. as 
tilo muy femenina de tu •••a<-. 

tiene unos ab&nlooe diab.'»n 

COS. 

Po Onlng es e» tirador ie ga 

ses venenosos Ri l<ee respira 
estos gases qneda paralizad. 

durante unos negnndop v P 

Thhif* Icieiaip' « ivecb* »)a> p i-a 
•lianarl«i día <,v'*"íi< .«r^i. 

siblemente su energía. 

La opción para dos jugadr 
res te peT»™ i.te eev T,ee V,u i L g o 

al^uni tip «".° lu^nadorea 46 

emperador uipenf^prAn. en 
tos duran dos o tres roí mds, se 
gún havan empatada en ios 
dos primeros o no 'Toas cousp 
guir más de 2o .t 100 ó ñu.OC* > 
puntos se con si oara iea 
Young nuevae oportunidades 
de enfrentan* le 



v.w 

v.v. 
•.-.*.•. 
v.v 



• • • • . 
.... 



• • • • • 

■ 



• • • 
• • • • • 



v.v# 

• • • • 
• • • • • 

• • • • 

• . • . • • 



... 




Sonido: bueno. 
Grañamo: excelente. 
Conclusiones: es un juego difí- 
cil y entretenido, con todas las 
extraordinarias posibilidades 
que son habituales en los juegos 
arcade (o de salón). Vale la 
pena. 

Precio aproximado: 8.200 
pts. 
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3D WATER DRIVER 



8ony 
Formato: cartucho 
Mandos: teclado ojoystick 




eguramenta mncnos de 
vosotros va habéis higa 
dí con el püigulnc de 
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TELLO HELBLING 




30 Water- Dnver 





Antartir Land. ese que debía 
llagar a UJ «ñigio esquivando 
grandes huecos v ques de 

>uei« v tambito a granfi«p y 

r.ravlesap focas que aparecían 
imprevísnatneiUfl Pupr t>i«n,ei 
luego que ahora com muaré 
mos es muv parecido, s6lo que 
en ve? ]p est^.»- pasando frío, 
estas en una hermosa plava 
decidido a participa** en noa 
ar-vava P^n lo ta> ei obleti 
vr. as llegar « .na meta en un 

r,iemp<, Umita 

FA rer-.w>r>hi, se divide en 9 
etapas u <»r ..,ia zot ^ le arraci- 
fep nmv pellgr<->sa 

Primera fase Tienes un 
tiempo cifrado e< 2noo para 
recorrer ¿Oí M) m 11 • as Para no 
perder ningún valioso según 
do tienes que editar cualquier 
choque contra loe arrecifes o 
embestir a «os tíburonea que 
aparecen en <as sígu lentes fa 
ses T,as bestias marinas te 
apa< e.tei» de improviso por Le 
que se requiere mucha aten- 
ción v reflejos para evitarlos 

Las banderas que aparezcan 
a medida que avanzas tienes 
que cogerlas pues asi obten 
drás mas puntos S1 t,e interesa 
saber tu situación en cada mo- 



mentó puedes mirar el indica 
dor en la parte superior de la 
pantalla. Si consigues llegar 
entre los diez pri meros pod ras 
i.), »ner tu vi».í..bre er. la pauta 
lia 

T^a, potet i cía de tu motor es de 
750HP. 



Sonido: apropiado, aunque mo 
nótono. 

Grafiamo: correcto. 
Conclusiones: puede resulta] 
entretenido para aquellos qu< 
no hayan jugado el Antartii 
Land. 

Precio aproximado: 3.8CX 
pts. 
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KKIfiHT C».U.UAKI»Eir 



THE KNIGHT 
COMMANDER 



Discovery Iníormatic 
Formato: cassette 32K 
Teclee: BL0AD a CA.°",R 




unque su título sugiera 
un juego üitergaláctlco 
éste es un buen progra- 
ma de utilidad para los usua- 
rios de MSX : ya que aumenta 
4< > nuevos comandos al BASIC 
M8X. dejando libre la memoria 
RAM. 




. . I 
• •••••« 



de este modo podrá darles 
fuertes cabezazos hasta derro- 
tarlos. Pero atención, el susto 
dura unos pocos segundos. En 
cuanto al travieso mono sólo 
podrá darle cabezazos cuando 
esté despistado o bien hay que 



]□□□□□□□□□□□□□□□□□ 

Entre otras funciones este 
programa permite comprimir 
programas en Basic borrando 
espacios innecesarios o unien- 
do tantas líneas como sean po- 
sibles, podemos aumentar la 
velocidad de los programas, 
etc. Entre los nuevos coman- 
dos destacamos el IPLLTRON, 
que permite la ejecución paso 
a paso del programa en la im- ' 
presora. El comando estándar I 

j¡ LTRON trabaja correctamente 
con la impresora, imprimien- 

, do los números de línea tal y | 
como son ejecutados. Entre el 
comando IPLLTRON y la nue- 
va versión mejorada del co- 
mando TRON existe la diferen- 
cia de que facilita la detección 
automática de los saltos que se 
producen en los bucles y se 
ahorra tiempo de impresión y 
también papel. 

Otras funciones incluidas y 
muy interesantes son el reloj 
en tiempo real, indicador par- 
padeante del cursor, recupera- 
ción de un programa borrado 
con NEW, almacenamiento de 
gráficos, volcado de variables 
en pantalla y con el IPL KEY 
ON se definen 26 nuevas te- 
clas. 



da fase no tendrá las mismas 
ventajas, pero si otras. La pun- 
tuación es la siguiente: Por 
cada llave recuperada 200 
puntos; por derribo de cual- 
quiera de los enemigos, 100 
puntos. A medida que se supe- 
ren las fases éstas se volverán 
más difíciles, aumentando el 
número de enemigos y la velo- 
cidad del juego. 



Conclusiones: un programa 
de utilidad que vale la pena te- 
ner para sacarle más provecho 
al aparato. 

Precio aproximado: 2.900 



pts. 
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B0GGT84 



Sony 

Formato: cartucho 
Mandos: teclado o joystick 



oggy es un hombrecito 
con un pequeño proble- 
ma. Resulta que se le ha 
perdido un manojo de llaves, 
exactamente 7, en una ciudad 
subterránea. Es muy impor- 
tante que las encuentre ya que 
con ellas formará su nombre 




r 



— i 



Sonido: monótono. 
Graíismo: bueno. 
Conclusiones: ofrece no sólo 
dificultades sino también posi- 
bilidades diversas para salir de 
ellas. Es entretenido y requiere 
mucha paciencia. Prueba a re- 
coger las llaves formando co- 
rrectamente el nombre BOGGY 
84. 

Precio aproximado: 3.800 
pts. 





A A 



j n 



m 



oqqooooo 



SORCERY 



A++ 



Discovery luí ormatic 
Formato: cassette 32K 
Mandos: teclado o joystick 
Teclee: LOAD U CAS:",R 



«¿TV* 
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BOGGY 84 y así escapar de la 
extraña ciudad. Tal ciudad está 
habitada por dos hombrecitos 
y un mono que harán lo posi- 
ble para que el pobre Boggy no 
coja sus llaves. Pero sólo hay 
una manera de vencer a los lla- 
mados Harry y Slowly. Cuan 
do estén muy próximos a 
nuestro héroe, éste debe so- 
plarles e inmediatamente se 
tornarán blancos del susto y 



evitarlo saltando por encima 
de él. En el caso de que los hom- 
bres y el mono atrapen a Bog- 
gy será éste quien se lleve el 
susto y un buen mordisco, per- 
diendo una oportunidad para 
recuperar las llaves. 

En la primera fase Boggy 
puede ir hacia los lados, saltar 
de un piso a otro gracias a los 
muelles o bajar utilizando pa- 
sadizos secretos. En la según- 



or ñn el famoso juego de 
arcade en cinta. Sorcery 
es uno de los juegos de 
magia y aventura más apasio- 
nantes, las cuales se desarro- 
llan en 50 pantallas diferentes 
que pondrán a prueba tu habi- 
lidad. 

Tu misión es ayudar al He- 
chicero a reunirse con los de- 
más hechiceros que vayas libe- 
rando, los cuales se unirán a él 
en el Santuario para que cuan- 
do tú llegues en el Día Dorado 
puedan reunir sus fuerzas y 
derrotar en el Lugar Exaltado 
al pérfido Nigromante. No es 
fácil conseguirlo, pues se trata 
de recorrer todo el reino en 
poco tiempo, buscando a los 
hechiceros atrapados por el 
poder del Nigromante. Duran- 
te tu recorrido encontrarás 
numerosos objetos, muchos de 
los cuales te serán útiles, otros 
muy importantes y otros mor- 
tales. 

Para recoger los objetos hay 
que situar el Hechicero sobre 
ellos y pulsar el botón de dis- 
paro o la tecla SHIFT en caso 
de que emplees el teclado. Para 
usar un arma o lanzar tus pa- 
labras mágicas, también te va- 
les del botón de disparo o de la 
tecla SHIFT. También median- 
te el mismo recurso cambiar 
objetos o dejarlos caer, pero 
nunca en el mismo lugar de 
donde los has recogido. Tras 
jugar unas cuantas veces ad- 
quirirás la experiencia nece- 
saria como para conocer qué 
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COMIC BAKERY 



KonamiySerma 
Formato: cartucho 

¡: teclado o joystick 
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al tiempo que lo encontraras 
simbolizado por un libro que 
se va desvaneciendo página a 
página. 



El protagonista de este 
juego es un simpático 
panadero que tiene un 
grave problema. El horario de 
trabajo en su panadería es de 9 
h de la mañana hasta las 5 de 
la tarde, en ese tiempo debe 
realizar la mayor cantidad de 
pan o como mínimo 4 paneci- 
llos para 4 personas que están 
esperando muy hambrientas; 
pero el verdadero problema 
está en que sin saber cómo se 
han metido en su local unos 
mapaches muy traviesos, que 
además de comerse el pan de 
nuestro amigo le apagan las 
máautnas. retrasando así mu- 
cho su trabajo. Esto obliga al 
panadero que esté en constan- 
te vigilancia para que las má- 
quinas estén todas encendidas 
cuando sean las 5 h. 

Para defenderse de los pe- 
queños perros mapaches Joe 
el panadero ha inventado una 
pistola paralizadora aunque 
no ha logrado que su efecto sea 
muy duradero; además el gas 
paralizador tiene un límite 
por eso Joe debe usarlo sólo en 
casos de gran peligro o bien 
cuando estén a punto de robar- 
le el pan. Si no desea usar la 
pistola sobre los perritos pue- 
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de saltar por encima de ellos 
con mucho cuidado. 

El Juego comienza con 3 pa- 
naderos pero a medida que au- 
mentas tu puntuación la com- 
putadora te irá regalando más 
panaderos. 

|Ah! El pan debe pasar por 
las cuatro máquinas para que 
esté en su punto. 
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objetos te sirven más que otros 
para provocar una serie de 
acontecimientos favorables 
para continuar este fantástico 
viaje. 

Una cosa que tienes que te- 
ner en cuenta es que tú posees 
una, energía que la mantienes 
mientras no entres en contac- 
to con fuerzas del Mal, por lo 
que tienes que procurar evi- 
tarlas como sea. De todos mo- 
dos, si sales mal parado hay un 
modo de recuperar tu energía 
y para ello tienes que echar 
mano a tu magia. 

También tienes en tu contra 
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Sonido: bueno. 
Grafismo: bueno. 
Conclusiones: excelente juego 
tipo arcade de aventuras, en el 
que tienes que poner a prueba tu 
inteligencia, tu capacidad es- 
tratégica v también la astucia 
para llegar al final. 
Precio aproximado: 1.900 
pts. 




Sonido: correcto. 
Grafismo: bueno. 
Conclusiones: es un juego que 
en un principio párece sencillo 
por eso debes comprobar tú 
mismo lo contrario. Necesitas 
muchos reflejos. 
Precio aproximado: 5.300 

pts. 
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tanero ha sido atacado suele 
quedar un poco tarumba unos 
momentos y él es quien tiene 
que reanimarlo con sólo acer- 
carse y tocarlo. 

Tienes tres oportunidades 
para conseguir que al menos 
pasen 1.000 litros de agua. 
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SPLASH 



Mind Gamos 
Formato: cassette 32K 

joystíck o teclado. 




Splash es un juego cuya 
misión es guiar a un fon- 
tanero para que abra las 
llaves de paso de una gruesa 
cañería por donde corre el 
agua. El asunto dicho de este 
modo parece muy simple, pero 
lo primero que nos encontra- 
mos es que nosotros, los juga- 
dores no conducimos directa- 
mente al fontanero, sino al 
duenu de la casa que es quien lo 
acompaña. El fontanero nor- 
malmente tiende a quedarse 
allí donde aparece o donde el 
dueño de casa lo abandona 
para defenderse y defenderlo 
de los ratones y de las arañas. 

Tanto unos como otros difi- 
cultan la labor molestando al 







I ■■- 






■ ■ ■ ■ ■ ■ 

r 

I " ■ i ■ ■ w 


* ■ * ■ 1 ■ 1 I_ 

S ■ ■ ■ ■ w— 






— ■ ■ 
OOLS 

^\ *T* A 4 



Sonido: muslquilla insistente y 
nerviosa. 

Gráficos: buenos. 
Conclusiones: es un juego de 
habilidad que te divertirá du- 
rante un tiempo. 
Precio aproximado: 2.495 
pts. 



00000000 



AGENDA DE 
ESTUDIOS 



Ad vanee 

formato: cassette 16E o más. 




aquellos estudiantes que se 
ven desbordados por la canti- 
dad de materias y por el poco 
tiempo de que disponen. La 
agenda les permite organizar 
un plan de estudios semanal 
introduciendo hasta diez asig- 
naturas con sus respectivas 
tareas a realizar, de modo que 
cuando se enfrente a tal o cual 
materia pueden visualizar en 
pantalla punto por punto lo 
que tienen que hacer. 

Así, poco a poco, vamos in- 
troduciendo al ordenador en 
los hábitos cotidianos y no lo 
tenemos sólo como un trasto 
para Jugar. 

Obviamente para usar esta 
agenda tienes que cargar el 
programa en el ordenador, 
posteriormente introducir los 
datos que consideres necesa- 
rio, abrir o borrar fichero, etc., 
día por día entre lunes y vier- 
nes. Una vez que tienes todo 
realizado grabas en otra cas- 
sette tu agenda completa, pues 
será esta grabación la que usa- 
ras. 



E 



ste programa desarro- 
llado por Advance re- 
sulta de utilidad para 



Orañuno: correcto. 
Conclnflionea: muv accesible. 
Precio aproximado: 2.200 pts 





— 



operarlo subiendo y bajando 
por los distintos niveles de las 
tuberías y es más, el ratón cie- 
rra las llaves de paso que ya ha 
abierto el fontanero y el agua 
no llega al final si no abre to- 
das las llaves con suma rapi- 
dez. 

Para defenderse, el dueño de 
casa suele tirar con herra- 
mientas al ratón a quien para- 
liza por un tiempo precioso 
para que su fontanero pueda 
abrir las llaves. Cuando el fon- 
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INICIACION Al LENGUAJE MAQUINA 









INSTRUCCIONES RELACIONADAS 
CON LOS FLAGS 



POR J. C. GONZALEZ 



Flags Flags 

Instrucciones S Z H P N C Instrucciones S Z H P N C 

I: los flags quedan determinados por el RR c x x 0 x O x 

byte que viene del stack. RRCA - - 0 - O x 

POPss ------ RRCr x x 0 x 0 x 

PUSHAF ------ RRD x x 0 x 

PUSHss ______ RST ninguna instrucción artera 

RESb.r ------ ninqúnflag 

RET ______ SBC A,r x x x x 

RETc -_____# SBCHL.ss X x x x 

RETN SCF - - 0 - 

RETI SETb,r 

RLA - - 0 - O x SLAr x x 0 x 

RLr x x 0 x O x SRAr x x O x 

RLCA - - 0 - 0 x SRLr x x 0 x 

RLCr x x 0 x 0 x SUBr x x x x 

RLD x x 0 x O - XORr x x 0 x 
RRA - - 0 - O x 



símbolos: 

x : el f lag es alterado por la instrucción según el contenido de los registros implicados. 
-: el flag no se altera por esta instrucción en ningún caso. 
1 : el flag se pone a uno en cualquier caso. 
0: el flag se pone a cero en cualquier caso. 
?: el flag se pone a uno o a cero al azar. 

!: comportamiento particular. Se da una explicación en cada caso. 
FLAGS: 

S: signo (en complemento a dos) 
Z: cero 

H: «halfcarry». Si hay carry entre el bit 3 y 4. 
P: parity/overflow. 
N: sustracción. 
C: carry o acarreo. 



Otros: 

r: registro 

ss: par de registros 
e: desplazamiento 
n: número entre 0 y 255 
b: número entre 0 y 7 
c: condición 
pq: dirección 



TABLA 1 



Analizaremos tres tipos de instruccio- 
nes: 



L- Retorno de una subrutina 

con condicionales 
Al RET c (c = condición) 



Posibilita el retorno de una subrutina 
si y solo si se cumple una condición de- 
terminada, la cual viene determinada 
por el estado (valor) que tiene un flag de- 
terminado. RET c es equivalente a la 
sentencia en BASIC "IF... THEN RE- 
TURN" cuya utilización es parecida. 

En todas las instrucciones condicio- 
nales se utilizan unos símbolos para in- 
dicar, en el mnemónico, el flag que se va 
a explorar, el valor que tiene en ese mo- 
mento y el estado en que debe ejecutar- 
se la instrucción. 



SIMBOLO 


SIGNIFICADO 


EJEMPLO 


C 


CARRY a "1" 


RETC 


NC 


CARRYa"0" 


RETNC 


Z 


ZEROa"1" 






(el resultado 






fue 0) 


RETZ 


NZ 


ZERO a "0" 


RETNZ 


PE 


PARIDAD "par" 


RET PE 


PO 


PARIDAD 






"Impar" 


RETPO 


M 


SIGNa"1" 






(menos) 


RETM 


P 


SIGN a "0" 






(más) 


RETP 



Para todos los casos: 1 ) si se cumple 
la condición se ejecuta un retomo al pro- 
grama principal o bien al monitor BASIC 
(en caso de RET). 2) si no se cumple la 
condición se ejecuta la instrucción si- 
guiente. 



2. Operaciones ari 
función 



éticas simples 
le C ARRY 



del valor de 



A) INSTRUCCION ADC 

Es un grupo de instrucciones que se 
comportan al igual que ADD, es decir, 
que suman datos, registros y parejas de 
registros, pero que ademas, una vez 
realizada la suma se añade el valor del 
CARRY ("las que llevamos de la opera- 
ción anterior"). Todo ello permite traba- 
jar en números mayores a 65535 




64 



($FhFF), ocupando por tanto más de 
dos bytes cada uno 

Pongamos jn ejemplo imaginemos 
i lumeros de tres bytes que nos per i « mei i 
coger valores entre SüüOüüU a 
$FFFFFF (ü a 167/ 72 16 dec) Siena, 
asi ejecutando ADD o SuB no podie 
mos , «alizai operaciones llevando un 
numero a -aoa íeyisuo pareja üe e 
gisrros» tenurernos que opera» el .iui ñe- 
ro en tres partes una para caoa byte 6i 
tenemos un numero colocado en las po- 
siciones $4üBK ; $40CÜ y $40l 1 y otro 
en $4382, $4363 y $4384 de más a me 

nos significativo, paia sumarlos y dejar 
el resultado en $A I 66. $Al 6* $A I BP 
la «utiiia se» a 

Empleamos Hl ¡orno punten» ^ata el 
primei numeio. Be para el seyuiuii y 
DE para el resultado: 

Cargamos los punteros cor» sus íes 
pectivas direcciones indicando i<>b by 

tes menos significativos <ie aoa núme 

ro 



LD NL, $4ÜL1 
LO BC, $4384 
LD DE, $A1BD 



Seguidamente cargamos er A el pri 
mer oyte del segundo numero y en B el 
primer oyte del pnmer numero sumán- 
dolos a coi iiinuacion: 

LD A, (Be) 
LD B, (HL) 
ADD A,B 

Horiemos ei t>t>>m_<i< SI -i ¡m- w 

itytenei esuitarn. y >h -«mentárnoslos 

punteros 



LÜ(Ülr). A 

DEC HL 

ufcc Bl 

DEC DE 



Si la suma de ios dos primeros oyies 

na sioo mayor jue $F>. el nay aRh i 
nabra (ornado éi vaior l si no na sido 
mayoi se encontraré a cero. 



Cargarnos ahoia en los registros los 
segundos bytes de los sumandos y i«»s 
sumamos, pero esta vez no con AUD 
sino con ADC porgue si hay un cAHHr 
lo sumaremos ai resultado 

LO A, (BC) 
LL> B (HL) 
ADC A,B 

Guardamos el resultado, decrernen- 
tamos de nuevo los punteros y suma- 
mos los terceros bytes con ADC: 

LD(UÉ). A 
DEC HL 
DEC BC 
DEC DE 

LD A,(BC) 
t D B.(Hl ) 

AUL A B 



tíuai damos el esultado y /a Tenemos 
la suma 

LD(DE), A 

| 

B, IH8TRUCCI0B SDC 



bu tui icioi iai i nei iti db el de Aui peí i 
pera lealiza» sustr adulones. SBC a,» 
i esia • de A y a col km luat ii n i esia i re» i e 
suitaoo el *lag ( ARR y r puede se» üi i 



nomero, (HL), (IX+d), (lY+d), 
A tí.c,ü,E,Hy L Para realizar la misma 
•peí ai ion pero con parejas de registros 
se utilizan SBC HL.rr", y pudiendo ser 
-rr HL BC, DE o SP (SP="stack poin- 
ter puntero de la pila) 

SUB al no (i abajar con parejas de re- 
gistros par a restar dos números de die- 
ciseis bits utilizarnos sbc HL, rr" de- 
biendo esiai cARHY en posición cero, 
paia colocarlo a cero empleamos la ins- 



íecto de alfanas instrucciones, sobre el registro P (flags ). 



Instrucciones 

ADCA,r 

ADCHL,ss 

ADD A,r 

ADDHL,ss 

ADDIX,ss 

ADDIY,ss 

ANDr 

BITb,r 

CALLpq 

CALLc.pq 



s z 

x x 

x x 

X X 



Flags 

H P N C 



Instrucciones 



x x 

? x 



x 

X 
X 
X 
X 
X 

1 
1 



X 
X 
X 



X 

? 



o 

0 
0 
0 
0 
0 
0 
0 



X 
X 
X 
X 
X 
X 

o 



Flags 
S Z H P N C 

x x x x 0 - 




! 0 x 



(! toma el valor previo del f lag C) 

x x x x 1 

x ! x ! 1 

x ! x ! 1 

x ! x ! 1 

X I JÍ I 1 

BC llega a 0 



\i (OI 

CPr 
CPI 
CPD 
CPIR 
CPDR 
!:Zea1 



y P/V es 1 si A=(HL) 
CPL 
DAA 
OECr 
DECss 
DI 

DJNZe 
El 

EXAF.AT 
EXDEHL 

EX (SP),HL 
EX(SP),IX 
EX (SP),IY 
EXX 
HALT 
IMO 
IM1 
IM2 



INCr 
INCss 

IN A,(n) ______ 

INr,(C) x x x x 0 - 

INI ? x ? ? 1 - 

IND ? ! ? ? 1 - 

! Z = 1 si B llega a o 

INIR ? 1 ? ? 1 - 

INDR ? 1 ? ? 1 - 

JP ninguna instrucción altera 
ningún flag 

JR ninguna instrucción altera 
ningún flag 

LD(BC),A 

LD A,(BC) 

LD A,l x x 0 ! 0 - 

LDA.R x x 0 ! 0 - 

LD ninguna de las otras instrucciones 



x x 

X X 



1 

X 
X 



- 1 - 



X 
X 



- X 

1 - 



— — _ - 



LD altera ningún flag 

LDI 

LDD 

! P/V=0 si BC=0 

LDIR 

LDDR 

NEG x x 

NOP 

ORr 

OUT(n),A 
OUT(C),r 

OUTI ? 

OUTD ? 

!:Z=Osi BC=0 

OTIR ? 

OTDR ? 

POP AF ! 



0 ! 0 - 

0 ! 0 - 

0 0 0 - 

0 0 0 - 

x x 1 x 



x x 0 x 0 0 



! 
! 

1 
1 

! 



? ? 1 

? ? 1 

? ? 1 

? ? 1 

! ! I 



! 



símbolos: 

x : el flag es alterado por la instrucción según el contenido de los registros implicados. 
-: el flag no se altera por esta instrucción en ningún caso. 
1 : el flag se pone a uno en cualquier caso. 
0: el flag se pone a cero en cualquier caso. 
?: el flag se pone a uno o a cero al azar. 

I: comportamiento particular. Se da una explicación en cada caso. 

r: registro. 

ss: par de registros. 

e. desplazamiento. ■■■■■■■■■■■■■■■ 
n. número entre 0 y 255. m ^^^^^^^ m 
b: número entre 0 y 7. 
c. condición, 
pq: dirección. 



TABLA 2 




trucción "ANDA": 



ANDA 
SBC HL, DE 



Cl INSTRUCCION SCF (8et CAREY Flag) 

Tiene por objeto poner a uno al flag 
CARRY. 

3.- Instrucciones para realisar 
comparaciones entre bytes como base 
Dará instrucciones condicionales 

A/ INSTRUCCION CP 

Corresponde al formato "CP r" pu- 
dendo ser "r": (HL), (IX+d), (lY+d). 
A,B,C,D,E,H,L, o bien un número. 

Compara V con A, efectuando A-r, y 
no guarda el resultado en ningún sitio, 
quedando, por lo tanto, todos los regis- 
tros sin alterar. 

De hecho, coloca a todos los flags en 
función del resultado obtenido, prepa- 
rándolos para emplear a continuación 
instrucciones condicionales: 

Si A es mayor que V entonces C es 
cero 

Si A es igual que "r" entonces C y Z 
son cero 

Si A es menor que "r" entonces C es 
uno 

En la forma "CP A", los flags después 
de realizar A-A toman el valor cero. "IF 
A=r THEN RETURN" del BASIC equi- 
vale a CPr seguido de RET Z. 



V INSTRUCCION CCF 
Comulement Carrv FIaíO 



No repercute en ningún registro y co- 
loca a CARRY a uno si estaba a cero, o a 
la inversa. 



ALTERACIONES IV LA SECUENCIA DI 
EJECUCION: SALTOS ABSOLUTOS, 
RELATIVOS T CONDICIONALES 

L# secuencia normal de ejecución en 
un programa en CM se realiza byte a 
byte, de menor a mayor, hasta encontrar 
un RET que devuelva el control al moni- 
tor BASIC. Si esta secuencia no se pu- 
diese alterar no nos sería muy útil pro- 
gramar en CM, puesto que entonces 
para hacer una cosa repetidamente 
cierto número de veces la tendríamos 
que poner una a continuación de otra, 
tantas veces como la quisiéramos repe- 
tir. Sería el equivalente a que en BASIC 
no existiera el GOTO o el FOR... NEXT. 

En realidad esta secuencia si se pue- 
de alterar, y para ello utilizamos toda 
una serie de instrucciones en CM que 
nos permiten realizar tanto saltos condi- 
cionales como incondicionales, y en 
cada uno de estos dos tipos, saltos ab- 
solutos y relativos. 



SALTOS ABSOLUTOS: «JUMP» 

Ya sabemos que a diferencia del BA- 
SIC en el que las instrucciones se identi- 
fican por el número de línea, en CM se 
identifican por la posición de memoria 
que ocupan. 

Así, para saltar el curso del proceso a 
una parte determinada del programa 
disponemos de la instrucción JUMP (ho- 
móloga a GOTO). Su símbolo es "JP 
nn" donde tt nn" es un número de 1 6 bits 
que indica la posición de memoria a la 
que se efectúa el salto. Por ejemplo, 
para saltar a una instrucción situada en 
la posición de memoria $ 4093 usare- 
mos JP $4093. 

Hay que estar atento al efectuar un 
salto para que éste no caiga en medio 
de una instrucción de dos o tres bytes, 
puesto que el Z80 interpretará a partir de 
ahí todos los códigos desplazados una 
posición, dando por resultado algo sin 
sentido. 

La forma «JP (HL)" saltará a la posi- 



INSTRUCCIONES 



EJEMPLO A 



ción de memoria indicada por el par de 
registros HL. Esta forma solo es utiliza- 
ble para los pares de registros HL, IX e 

SALTOS RELATIVOS: «JUMP RELATIVE» 

Una forma exclusiva del CM es saltar 
"n" bytes hacia delante o hacia atrás. 
Para ello se utiliza la instrucción JUMP 
RELATIVE, que se simboliza a través de 
"JR e" donde "e" es el número de bytes 
que hay que saltar hacia adelante o ha- 
cia atrás. Como el salto puede ser en 
dos sentidos, el Z80 interpreta en com- 
plemento a dos el byte "e", en conse- 
cuencia sólo podremos saltar entre 1 27 
bytes hacia adelante y 128 hacia atrás. 

La mejor manera de calcular el valor 
de un salto relativo en un listado es em- 

Eezar a contar a partir del primer byte de 
i instrucción que sigue a " JR e", ésto es 
válido tanto para los saltos hacia ade- 
lante como hacia atrás. 
Una de las ventajas de utilizar los sal- 



EQUIVALENTE EN BASIC 



CPr IF A =r THEN GOTO nn 

JP-Z-on 

CP r IF A <>r THEN GOTO nn 

JP-UZjw 

CP r IF A < r THEN GOTO nn 

JE.C do 

JE.ÜC_nn IF A> = r THEN GOTO nn 

CP$00 IF A > =128 THEN GOTO nn 

JP-M na 

CP $ 00 IF A< 1 28 THE GOTO nn 

JP-P-an- 




EJEMPLO B 




tos relativos es que éstos funcionan in- 
dependientemente de las posiciones de 
memoria en que se halle el programa, 
por lo que si cambiamos su localización 
los saltos no se alteran. Otra ventaja es 
que mientras los saltos absolutos ocu- 
pan tres bytes, los relativos ocupan sólo 
dos. 



SALTOS CONDICIOHáLES 

Son un grupo de instrucciones que 
junto a las que afectan a los flags permi- 
ten construir sentencias equivalentes a 
"IF condición THEN GOTO" del BASIC. 
Solamente se ejecutará el salto, absolu- 
to o relativo, si un determinado flag está 
en un valor en concreto, si no la instruc- 
ción se ignora y el programa continúa la 
secuencia normal. Por ejemplo "JP NC 
nn" saltará solamente a la posición de 
memoria "nn" si el flag C está a 0. 

Algunas de las combinaciones más 
utilizadas tanto para saltos condiciona- 
les como para lazos y bucles son los de- 
tallados en el ejemplo A. 



OE 05 



45 

C25555 



LDC, 5 

$5555 
BUCLE 



DECC 



>■ Contador 



Dirección inicio bucle 



»• Si C = 0 entonces Z = 1 



JP NZ $5555 



► Salto si C * 0 cinco veces 




BUCLES 7 8UBBUTISAS 

La forma de tratar las subrutinas en 
CM es prácticamente igual a la que se 
tratan en BASIC. Así ya vimos que el 
equivalente a "GOSUB" es "CALL nn" 
donde "nn" es una dirección de memo- 
ria a la que se transfiere el control del 
programa. Al ejecutar "CALL nn" se 
guarda automáticamente en la pila 
"stach" la dirección de la siguiente ins- 
trucción que debería ser ejecutada si no 
existiese la subrutina a la que se indica 
desplazarse, y se carga el registro PC 



(contador del programa) con la dirección 
"nn" de CALL, con lo que la siguiente 
instrucción que se ejecutará será la que 
se encuentra en la dirección "nn". 

Con el formato "CALL c, nn", siendo 
"c" la condición que viene indicada por 
el flag, podemos dirigir la ejecución del 
programa hacia subrutinas de la misma 
manera que lo hacíamos con los saltos 
condicionales. Por ejemplo, "CALL Z, 
$4082" dirigirá a una subrutina que em- 
piece en la dirección $4082 sólo en el 
caso en que el flag Z esté en el valor 0. 

En CM se emplea la propia pila 
"stack" del Z80 para almacenar las lí- 
neas de retorno de subrutinas, siendo el 
RET una especie de "POP PC" (PC es 
un registro de 1 6 bits que se utiliza como 
contador de programa en el Z80), es de- 
cir, al ejecutar un RET el programa re- 
gresa a la dirección de memoria almace- 
nada en la pila "stack", por lo que des- 
pués de ejecutar una rutina la pila debe 
quedar igual que como estaba antes de 
llamarla, por lo que hay que tener cuida- 
do si empleamos PUSH o POPs. 

Si realizamos un RET, después de 
haber hecho unos PUSH, a la dirección 
original, podemos almacenar la posición 
del puntero de la pila (stack pointer) SP 
en la memoria mediante "LD (nn), SP" y 
antes de ejecutar el RET devolver el 
puntero a la posición original con "LD 
SP, (nn)". 

Todas las direcciones CALL son de 
saltos absolutos, y no podemos hacer 
llamadas relativas del tipo "JR e". 

TIPOS DE BUCLES EN CM 

Principalmente existen dos tipos de 
bucles análogos a los que podemos 
construir en BASIC: en uno utilizamos 
un contador para controlar un salto con- 
dicional determinado por el valor del 
contador, y en otro el contador al tomar 
un valor determinado efectuará un salto 
condicional automáticamente. 

N Tipo contador-condición-salto 
condicional: 

Tomamos un registro cualquiera 
como contador, a continuación pone- 
mos el bucle y una instrucción que con- 
trole, mediante un flag, al contador, por 
último una instrucción de salto condicio- 
nal. Ver ejemplo B. 



Se puede emplear tanto saltos relati- 
vos como absolutos, así como cualquier 
tipo de instrucción como text (p.e./ "CP 
r"). Si empleamos un solo contador úni- 
camente podremos repetir el bucle 256 
veces, en el caso en que tuviésemos 
que hacerlo mayor número de veces de- 
bemos emplear un par de registros, y la 
instrucción OR, ya que DEC rr no altera 
a los flags. 

B/ Tipo contador-salto condicional 
automático: 

Utilizamos la instrucción "DJNZ e", 
esta instrucción utiliza siempre como 
contador el registro B, al cual decremen- 
ta en una unidad, comprueba si es cero 
y si éste es el caso efectúa un salto con- 
dicional relativo como "JR NZ, e", donde 
"e" será el número de bytes hacia atrás 
que debe saltar para ir en la dirección de 
memoria marcada como inicio, por 
ejemplo: 

LD B,5 

Inicio del bucle 
DJNZe 

Si utilizamos este tipo, la longitud de 
los bucles será como máximo de 1 27 by- 
tes al utilizar saltos relativos. Por otra 
parte los saltos tanto pueden realizarse 
hacia adelante como hacia atrás, así 
como saltar la propia instrucción con 
"DJNZ $FE". 

También se puede construir una es- 
tructura de varios bucles empleando la 
pila stack para almacenar los distintos 
valores de B: por ejemplo 



LAZO 1 



LAZO 2 



LAZO 3 




LD B, $05 

PUSH BC 
BUCLE 
LD B, $04 

PUSH BC 
BUCLE 
LD B, $02 

PUSH BC 
BUCLE 
POP BC 

DJNZ LAZO 3 
POP BC 
DJNZ LAZO 2 
POPBC 
DJNZ LAZO 2 
POP BC 

LAZO 
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TRUCOS DEL 
PROGRAMADOR 




LISTADO DE ASSEMBLER 



LA FUNCION WIDTH 




fjjjjláá alfeouio da vosotros tenga una de 
esas Impresoras «diabólicas» en las que 
no es posible preestablecer la anchura de 
los listados. De ser así, seguro que habréis 
sufrido las molestias de necesitar centrar 
el pa> k p i t iadtante exactitud o de resig- 
nai'se a peraer unos cuantos caracteres 
por el margen derecho. 

Estos usuarios y aquéllos que no quie- 
ran complicarse la vida mandando códi- 
gos de impresión o tabulando a bulto con 
los interruptores, sólo tienen que hacer 
uso de una pequeña rutina en C.M. para 
controlar a voluntad el número de colum- 
nas de la impresora. 

He aquí su listado en ASSEMBLER: 

Esta rutina funciona de una forma muy 
simple. En síntesis, se trata de poner un 
parche en la rutina del BIOS encargada de 
acar caracteres en los distintos periféri- 
cos (RST #H18). La salida se realiza por 
la pantalla cuando la dirección de memo- 
ria 6f HF4 16 contiene un cero, en otro caso 
el carácter en cuestión se manda a la im- 
presora. Como observaréis lo primero que 
comprueba la rutina es el valor de la refe- 
rida posición, para saber el periférico re- 
ceptor. Gx'acias a esto podemos ordenar 
xi retamo de carro seguido de un avance 
iui«a ..ada vez que ha sido enviado un 
iiiéi o de caracteres determinado de an- 
temano. Por ultimo, resta poner el parche 
en la dirección adecuada, que es la 
6PHFEE4. 

Si no posees un ensamblador, teclea las 
líneas del PROGRAMA A. 

Haz RUN y, si la suma es correcta, teclea 
NEW Ahora podras hacer uso de un pe- 
queño cargador. 

t^an* esta ü) m BAvb. "CAá.i*lfíTA M 
y de | o ¿a t ax <íi i uxtkx una. a continuación 
escriDe en modo directo: W BSAVE"CAS: 
BLISTA", 62290, 62336. 



s 1 errors: 00 



00A5 



F356 
F357 
F359 
F35A 
F35B 
F35D 
F35F 
F361 
F363 
F366 
F367 
F369 
F36B 
F36D 
F370 
F372 

F375 
F376 
F379 
F37A 
F37B 
F37D 
FEE4 
FEE4 
FEE7 



F5 

3A16F4 
B7 

2822 

Fl 

F5 

FE01 

281A 

FE20 

3818 

3AE7FE 

3C 



200B 

3E0D 

CDA5 0 0 

3E0A 

CDA500 

AF 

32E7FE 
Fl 

C9 

3EFF 
18F7 

C352F3 
FF 



»ler . 


Page . 


10 


LPRINT: 


20 


V 


30 


LISTA: 


40 




50 




60 




70 




80 


* 


90 




100 




110 




120 




130 




140 




150 


i 


160 




170 




180 




190 




200 




210 




220 


IN: 


230 • 


EX I T: 


240 





1. 





NO: 



EQU 

ORG 

PUSH 

LD 

OR 

JR 

POP 

PUSH 

CP 

JR 

CP 

JR 

LD 

INC 

CP 

JR 

LD 

CALL 

LD 

CALL 

XOR 

LD 

POP 

RET 

LD 

JR 

ORG 

JP 

DEFB 



#A5 

62290 

AF 

A, (#F416) 
A 

Z, NO 
AF 
AF 
1 

Z, EXIT 
32 

C, NO 

A, <#FEE7) 
A 

35 

NZ, IN 
A, 13 
LPRINT 
A, 10 
LPRINT 
A 

<#FEE7) , A 
AF 

A, 255 
IN 

#FEE4 
L I STA 



Pass 2 errors: 00 



Table used 
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PROGRAMA A 



10 FORX=62290!T062334! 
20 READVS: POKEX, VAL <"&H M +VS> 
30 S=S+VAL("&H"+V$) 
4 0 NEXT 

50 DATA F5, 3A, 16, F4 , B7, 28, 22, Fl, F5, FE, 1, 28, 1A, 
FE, 20, 38, 18, 3Á, E7, FE, 3C, FE, 23, 20, E, 3E, D, CD, A5, 

0, 3E, A, CD, A5, 0, ÁF, 32, E7, FE, Fl, C9, 3E, FF, 18, F7 
60 IÉS05561THENCLS: PRINP'HÁY UN ERROR" 



CARGADOR 



1 . j;U=.AK2UO , 62289 ! ; BLOttú"CAS: Bt.... ) STA" i pÜKESKFEEfe 
&HF o .: POKEAHEEES , m&¿ :. PCi)KE&HFEE6 . &HÜ:3 
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Esto te dejará la rutina lista para ser 
utilizada con sólo llamarla con 
RUITCAS:"; LOAD "CAS:", R o MER- 
GE w CAS:"yRUN. 

Cuando la tengas en memoria puedes ol- 
vidarte de ella, a no ser que quieras alterar 
el número de columnas, con POKE 
6PHF368, nuevo no., o inutilizarla, con 
POKE G7HFEE4, 201. 

Joaquín López 




MINELAPIZ 



Con este pequeño programita muchos 
colegas pondrán las bases para desarro- 
llar un programa de lápiz gráfico. 

10 'MINILAPIZ 

20 'PARA MSX 

30 SCREEN 2: P= 1 

40X=125: Y= 100 

50 PSET (X, Y) : Z$=INKEY$ 

60 IP P + - 1 THEN PRESET (X, Y) 

70 IF Z$= m THEN 50 

80 IF Z$=CHR$ (32) THEN P= - 1 

90 IF ASC (Z$)=28 THEN X=X+ 1 
100 IF ASC (Z$)=29 THEN X=X- 1 
1 10 IF ASC (Z$)=30 THEN Y=Y— 1 
120 IF ASC (Z$)=31 THEN Y=Y+1 
130 GOTO 50 



GRAFICOS 



A continuación os envío este pequeño 
programa de gráficos, valiéndome de las 
funciones S = Escala, A= ángulo y C = color. 

36 Color, 1: SCREEN 2 
38 AS = tt U2E2F2D2G2H2 w 
40 For K= 1 to 37 
42For J=0to3 
44X=Rnd(l>16 

46 Draw" c=x; s=k; a=J; bml28, 96xa$; 
bm64, 48xa$; bml92, 48xa$; bm64, 
144xa$; bml92, 144xa$;" 
48 Next J, K 
50 Goto 50 

• 

Cambiando los datos de la variable Al, 
conseguiremos infinitos gráficos. Se trata 
simplemente de buscar la combinación de 
letras y números apropiados. 

Podemos utilizar las letras RLUDEFG 
H y los números no conviene que sean ma- 
yores de 10. 

Lorenzo Martínez Rubio 





NUMEROS ALEATORIOS 
POSITIVOS Y NEGATIVOS 



Si se desea obtener una sucesión de nú- 
meros aleatorios cada vez diferentes y que 



puedan ser unas veces positivos y otras 
negativos dentro de la misma sucesión, 
podemos utilizar la siguiente subrutina. 

10 A = Int (RND( -TIME)*( -20) + 1 1 ) 

20 PRINT A 

30 FOR S = 1 TO 100: NEXT 
40 GOTO 10 

Es decir: multiplica INT (RND(-TIME) 
por un número negativo, en este caso 
(-20). Obtendrás 20 números aleatorios 
que van desde -9 hasta 10 positivo inclui- 
do también el 0. 

Los números 20 y 1 1 de la línea 10 pue- 
den ser otros que te interesen, dependien- 
do de la amplitud de números aleatorios 



que quieras obtener, pero procura que el 
segundo (en este caso el 11) sea la mitad 
más 1 del primer número (en este caso el 
20), pues de lo contrario obtendrás más 
números positivos que negativos o vice- 
versa. La línea 30 sólo sirve para ralenti- 
zar la aparición en pantalla de los núme- 
ros que se van generando. En un progra- 
ma en acción puedes suprimir esta línea, e 
incluso la línea 20 si no necesitas que apa- 
rezcan en pantalla. Y hasta la línea 40 si 
esos números quieres que se produzcan 
en determinados momentos del progra- 
ma. Es decir, sólo la línea 10 es la que pro- 
duce esos números aleatorios unas veces 
positivos y otras veces negativos. 
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INDICE DE PROGRAMAS DE 1 985 



Para complacer a los numerosos lec- 
tores que nos lo han solicitado, he aquí 
el índice de programas que hemos publi- 
cado durante el pasado año, que abarcan 
desde el número 1 hasta el doble 12/13. 



PROGRAMAS DE GRAFICOS 



Cuadrados girados 

Gráficos I 

Gráficos II 

Gráficos m 
Gráficos IV 
GráficosV 
Madeja 







...... 



.... 







Máscara africana 
Rombo 



, , , 

* v v w * a 



..... 



i #••( 



Sinfonía de curvas 
Snoopy 
Sobreposición 



••••• 



• • • 



Vuelo sobre el arcoiris 







9 
4 
5 
6 

7/8 
10 
1 
2 

1 
5 

9 

1 

1 



- - | ce» 7/7 nrimnr 



i 

! II 



preparado cinco pequeños 
KOgMmos con ios cuttea n< 
soio ledtvtrtirás, una 




14 ftcn*»«cbr»€iL^*«* 
¿é Min* • 
• •• • ••••••• 

Ai» tOR H*\1Ó t té 

94 4-1 re \7é 

7é *-\HT<fiHU l 
44 P*f t M r ,.. 

14* NCtf ta 

12* »0* 1-4*0 t»*4 4Tf* 2* 
tM '•l¿**3**C0*O"l»I'l**f 
H4 r*t»«34*4lMi»i«2/t4*i 
1*4 UMTtX ,t.-.l2»,l?l> iLf** 

• .4,**» 

144 LUCI*,! i-i!¿0 9 4* iLl<* 
104 (RiYO 144 



innii 



lft.il 




• w • 

!• KHttM 2i \ 1-141 tll«l J4 
2* J-l TQ M 

24 A1«4*4P< t »*»-Ji4V-*«nr H**-3 
*Q« 1-i TQ * 
..... 

4«9'«*(«¿i i)f;<i thc» :-i 

LJ*tfí**ZJ-tl«tl ,1 iLlf4r <i,2»2J-<ft v |* f l 

_ ' ■ 



! — 




PROGRAMAS DE UTILIDADES 



Agente secreto 
Ajedrez, tablero 







7/8 
4 



Archivo en casa. El 2 



Archivo discográfico 
Biorritmo8 1 
Biorritmo8 II 
Calendario *, 

Contabilidad familiar 
Diseñador de sprites 



i 



... 







••••...••......•........».•< 



................. 



••••••« 



11 

3 

5 
5 
2 



Enrejado 

Espantaintrusos 
Test de Listados 



.. . 



..... 



i 



3 
1 

10 




94 44«CM44<22*>«CH*ttW24»K>4t4 4 2;4 
•4 4#«0*» «29*1*0414 4 2M t *CHhft(J9lJ 
W C4«Om(¿23>^04^4 223»«CMR4i223» 
#4 P*I*T« A4CDfr6H-> 
74 F04 !»|T0 4 

44 rao- no* 

♦4 trM«Jl/2*mf M|«J|/2ltl4mit4 
144 LOCákTTJm: iPRINT »4|P»«INT 

.0C*TO«J,2»IfP«iNT 44fL0CAVf^J 

i**in t c«i 

U4 NElT j 



PROGRAMAS EDUCATIVOS 



Areas 











.... 



Así suena tu MSX 



Geografía 
Hagamos música 



Minuetto de Mozart 



a 










• 


i 








4 


■••••••«•••••.« 


a 



















10 
7/8 
4 
4 
1 
9 
11 



I l\UUl\l II lilJ 



m 

1*4 



n 

©» 



4?* r 

4?tl -IT* 
4*4 • -»9 

»«u* 

||4 
4^d 



fa 



;*4 

•IT* 
4P 

1«4 

1*1 

»• 



53 



1414 
1*Í4 

'.4*4 
1*3* 

!444 

11*.4 
!t«4 

• .• 

I 

it?a 

Jl*«4 

ida» 
i*ja 



•fui 

H 
e 

■;tr 

■•»5 

«| 

Q 

■UN 

yH 

Mí 

:?a 



•2^ -m 

1334 

V2ét - J* 

1774 • n 

ta» 

- 

n>4 • C4> 
t9«a i it 
tWI * i 
1104 - • 
IPt «1)0 

ta* 

l«l* -134 

4 -ua 
tai 

14*4 

«i» nit 
:«A4 >iü 




la**** 
is.i* 
i*** 

1CI4 

i >it 

iev4 

:r4u 

ti«* 



-143 

2*1 

a 

- ü* 

21 



T4 

:".*4 

)na 
t a* 
i>^* 



l 1 ** 
ita* 

!*t* 
i 414 
1«t* 

rv 

:nfl4 
?4A> 

H 

H 
B 

1*1É 



^a 

4 

■2*4 

Mí 



'4. 

MÍ 

n* 

!2« 



T>4» 

ifM 

:)7* 

M«a 
i^:4 



>l*7 
7*5 

a«s 

2*1 
1 



|TI44 

tí** 
t If 





14 
J§*0 

I *Ti' 

íb^* 

Si 

nía 

i:i4 
/ir» 
21 W 
2MIÍ 
¿13* 



-2r« 

im 

199 

3 



I ^ 

- a 



M*t i 

S*i - 

22S* > 
2 
1* 

¿ta* -i2i 



?244 



i* n: 




i » • * • 



*^4»t •-•>•-..#,, 

MIIIIIMMII tH99k»%é 

4t« ^M144fl1CKii4Étl»ttl»»«4«C. f l 



• . •Olí* • 

M*«4M4<« ' 
44 4l.«* Af.4»,C» 
4» DOTf «4 



Picasin 



......< 



6 



Series lógicas 7/8 

Solfeo « 







i 



Tabla periódica de los elementos 







...... 



12/13 




ü f PI0ÍIÍ88 Oí 



C ♦ »• ***** 



PROGRAMAS DE JUEGOS 



Alienígenas del espacio 2 

Baqueira Beret 6 

Batalla espacial 7/8 

Bingo 7/8 

Breakout 2 

Caza, La 

7/8 

Cazasubmarinos 5 

Cousteau 10 

Entropíá , 1 1 

Fu^ci, ..•••#«...• 9 

Helicóptero de salvamento 7/8 

Hundir la flota 

• •••• • \j 

In di AT i ¿polis iMM 1 

cJ3iCkpot 4 

Línea Mortal 6 

LuckyLuke 9 

Mazmorra tridimensional 5 

■uflWtff W 

Moonwalker 10 

Objetivo Nueva York 1 

Oro de Alí-Babá, El 7/8 

Palillos 3 

\j 

*^*scís , 8 

Rizzte 3 

íkna del espacio, La 12/13 

Severiano 

« 4 

Tresenraya 3 

Tron 4 

■ 
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RS-101 THE KNICHTS C0MMAN0ER 



22 TeC'JS 6Xt 



A Ir» 



VUIUKJü Ut 




a completamente upre la memona RAM 




:ontiene un r. 
Manual cíe ios 



le entrenamiento 
en castellano 




HTS 
COMMANDER 



RS 105 STAR SEEKER. 

- El Star seeker no sidc diseñado como una < 
interesante introducción a la astronomía que 
capacita al usuario sin conocimientos previos 
para aprender cosas sopre las estrellas y los 
planetas JB^ÍÜ 

- Es una guia de referencia v una avuoa para el 
astrónomo profesional 

- Datos sopre mas de 500 estrenas de todos ios 
planetas del sistema solar y numerosas 
constelaciones. 

- Se acompaña el programa con un exhaustivo 
libro de instrucciones en castellano ± 

-100 Código maquina 




RS-107 MUTANT MONTY. 

- Ayuda a Monty a conseguir las dos 
grandes ambiciones de su vida. 

- Guíale a través de 40 terroríficas 
habitaciones para asi ser el héroe del día. 

- Música y efectos sonoros 

- Sprltes en alta resolución 
- 100 % Código máquina 

- instrucciones en castellano. 



PROD 





RS-104 5UPERW0L. 

'rtlÜSv leatista simulación del fútbol 
americano. Que combina toda la acción del 
. propio juego con las reglamentaciones del 
juego real. 1 

- uno o varios jugadores. 

- Cuatro tiempos de 15, minutos cada uno. 

instrucciones en castellano __ 




RS-103 SOUCfRY. 

- Esta emocionante «Arcatía-aventura» te 
transporta a la tierra del NIGROMANTE para 
luchar contra el y derrotarlo 

- Detallados gráficos y excelente animación 

- 50 Pantallas para explorai^¿^.\.. 

- Música amienta) v efectos sonoros^ 
tÉGO % Código máouina. ^ 

castellano rSLA 



rs-106 lazy jomes. 

— Lazy Jones está formado por una serie de 
juegos de «Arcada» integrados dentro de otro 
mayor. '-■ ":•".•» 

— Pantallas en alta resolución. Sprltes. 

— Sorprendentes e I ec :c s sonoros 

— Nivélele dificultad progresiva 
**. 100 %'Código : hiaouina 




TA EN TIENDAS ESPECIATTZADAS 
N GRANDES ALMACENES 





DISTRIBUIDO -Y ULDUÜVERY 

por: rn informatic 

Arco Iris, 75 T. 256 49 08 09 / 08032 -BARCELONA 




COMPUTER SYSTEM 




ML-FX1/2 □ 

El MSX profesional 

80 Kb RAM. 

Teclado Numérico. 

ML-FX2 Programa MAP (B. Datos/ 

P. Textos / H. Cálculo Gráficos/ 

Comunicaciones. 

ML-30 FD □ 

La Máxima capacidad en disco. 
1 Mb. (720 Kb. Formateado) 
8 Formatos diferentes 

Chasis nrpv/ictn nara O imi/Hartac 



ML-10 DR □ 

Cassette especial para ordenador. 
Admite 1200/2400 baud. 
Cuentavueltas. Señal de monitor. 
Alimentación a red o baterías. 

ML-10 MA □ 

Ratón para diseño gráfico. 
Programa CHEESE de diseño. 
24 Funciones gráficas. 



APLICACIONES □ 

Un Software profesional para un 
ordenador profesional. Contabili- 
dad, Control de Stock, Factura- 
ción. 

CT-1501E □ 

Monitor/Televisión. 
Alta definición. 
Conector SCART. 
Mando a distancia. 



CUPON DE RESPUESTA 



Desearía poder tener más 
información sobre los aparatos 
marcados H de MITSUBISHI. 

Sr.: . ' 



Domicilio: 



Población: 

MABEL, S.A. 



